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PREFACE 


This  report  is  published  in  two  volumes.  Volume  I  is  a  narrative  description  of 
the  clothing  and  textiles  (C&T)  simulation  system,  which  includes  the  C&T 
simulation  itself,  a  “capture”  program  for  preparing  input  data,  and  an  analytic 
inventory  model  for  computing  variable  C&T  safety  levels. 

Volume  n  presents  a  listing  of  the  PC  SIMSCRIPT  n.5  source  code  for  each  of 
the  three  parts  of  the  system,  alphabetical  listings  and  brief  descriptions  of  each 
procedure,  and  outline  descriptions  of  the  flow  and  interactions  among  procedures. 
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CHAPTER  1 


INTRODUCTION 


This  volmne  contains  the  PC  SIMSCRIPT  n.5  source  code  for  the  three 
programs  in  the  clothing  and  textiles  (C&T)  simulation  system:  the  C&T  simulation 
itself,  the  data  "capture”  program,  and  the  C&T  variable  safety  level  (VSL)  model. 
Narrative  descriptions  of  those  programs  are  presented  in  Volume  I  of  this  report. 
This  volume  lists  source  code,  describes  procedures,  and  outlines  the  general 
structure  and  flow  of  the  system. 

The  '•simulation,  capture,  and  VSL  programs  are  treated  in  Chapters  2, 3,  and  4, 
respectively.  Each  chapter  has  four  sections.  The  first  section  outlines  the  flow  of 
the  program  by  listing  the  sequence  of  procedures  that  compose  the  program. 
Procedures  are  blocks  of  code  that  are  called  by  the  program  in  their  entirety. 
(Procedures  are  often  referred  to  as  subroutines,  routines,  or  modules  in  other 
computer  languages.)  In  the  outline,  indented  procedures  are  called  by  the 
procedure  immediately  above.  Words  in  capitals  are  procedure  names.  Words  in 
lower  case  are  branches  or  loop  instructions.  Procedures  followed  by  the  phrase 
"every  blank.interval”,  are  time-dependent  processes.  Processes  are  executed  after  a 
specific  time  interval  has  elapsed  in  the  simulation.  For  example,  the 
"REVIEW.INVENTORY”  process  is  executed  after  every  "review.interval”  has 
elapsed  (every  2  days). 

The  second  section  in  each  chapter  lists  all  the  procedures  in  the  program  in 
alphabetical  order.  The  list  serves  as  a  table  of  contents  for  the  program.  Procedures 
that  start  with  the  prefix  "PRINT”  serve  only  to  print  or  display  a  simulation  result. 

The  third  section  of  each  chapter  provides  a  brief  description  of  each  procedure. 
Procedures  listed  in  the  third  section  also  are  in  alphabetical  order. 

Together  the  first  three  sections  give  the  general  flow,  location,  and  description 
of  each  procedure  in  the  program,  to  make  finding  specifics  in  the  code  and 
understanding  the  program  easier.  The  fourth  section  in  each  chapter  contains  the 
SIMSCRIPT  source  code  for  the  program.  After  the  "PREAMBLE”  and  "MAIN,” 
which  are  required  procedures  in  any  SIMSCRIPT  program,  remaining  procedures 
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appear  in  alphabetical  order  in  the  source  listings.  The  convention  in  SIMSCRIPT  is 
that  code  itself  appears  in  capitals,  while  comments  appear  in  lower  case  and  are 
preceded  by  two  single  apostrophes  (  "  ).  Besides  the  code  listing,  any  procedure  can 
be  printed  individually  from  the  PC  once  in  SimLab.  The  command  for  this  is 
"PRINT  procedure.name.” 

SIMSCRIPT  is  designed  to  be  more  easily  understood  than  most  computer 
languages  because  of  its  "English-like”  code.  The  three  programs  are  written  in 
PC  SIMSCRIPT  n.5.1  SIMSCRIPT  is  a  structured,  general-purpose  language  with 
specific  features  to  support  simulation.  SIMSCRIPT  is  described  in  five  separate 
manuals  available  from  CACI,  Inc.: 

•  PC  SIMSCRIPT  II. 5  Introduction  and  U ser’s  Manual,  Third  Edition 

•  SIMSCRIPT  II. 5  Programming  Language 

•  Building  Simulation  Models  with  SIMSCRIPT  II.5 

•  SIMSCRIPT  II. 5  Reference  Handbook,  Second  Edition 

•  SIMANIMA  TION  U ser’s  Guide  and  Casebook. 


^SIMSCRIPT  is  a  product  of  CACI,  Inc.  The  Defense  Logistics  Agency  (DLA)  owns  two  copies 
of  the  PC SIMSCRIPTII.5  software  package  (with  compilers)  and  two  run-time  copies  (without 
compilers).  This  makes  it  possible  for  DLA  to  run  four  copies  of  the  C&T  simulation 
simultaneously.  Additional  run-time  packages  may  be  purchased  from  CACI  for  relatively  small 
cost  (from  $200  to  $500  per  copy,  depending  on  the  number  of  copies  purchased). 
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CHAPTER  2 


THE  C&T  SIMULATION  PROGRAM 


The  C&T  simulation  program  is  displayed  in  this  chapter.  The  program  resides 
in  the  subdirectory  C:\SIM\DLA  on  the  PC’s  hard  disk.  The  chapter  contains  four 
sections:  the  outline  flow  of  the  program,  the  list  of  all  procedures,  a  short 
description  of  each  procedure,  and  the  program  source  code. 

FLOW  OUTLINE  OF  PROGRAM 

PREAMBLE 

MAIN 

SET. OPTIONS 

PRINT. QUERIES 
INPUT. SSCF. DATA 
INPUT. MPTO 11. DATA 
PGC. INITIALIZE 

If  Ncwassunp.opt  •  true 
OPTIONAL . ASSUMPTIONS 
PRINT. SSCF. DATA 
IF  VSL.optatrue 
INPUT. VSL. DATA 
XYZ.PLTS 

MATRIX . DELIVERY . SCHEDULE 
If  Delivery. opt  «  1 
METHOOl . SCHEDULE 
else 

LAYINTO. MATRIX 
PRINT . DEL I VERY . MATRI X 
DISTRIBUTION . DATA 
RTC . REQUIS IT . CUTOFF 
GRAPH. INITIALIZE 
SIMULATION. RUN  now 

WARMUP. RESET  after  Warmup. period 
If  ICC  -  "P"  then  POI  item 
UPDATE. CTREQ. MAT  now 
COMPUTE . ROP . PCP  every  ROP. review 
SUM . FORECAST . OVER . TIME 
PRINT . ASSUMPTIONS 
SET. SIMULATED. DOR  every  30  days 
REVIEW. INVENTORY  every  Review. interval 
If  breach 

PLACE. PGC. ORDER 
CALC. ORDER. QTY 
wait  LT 

For  all  deliveries 
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RSCBIVE . PGC . ORDER 
PRINT. ORDER 

COVAR. SAMPLING  every  Cover . interval 
CONFIDENCE. INTERVAL 

PRINT. QUICK. COVAR  every  Quick. interval 
For  all  NSNs 

DEMAND. GENERATOR  every  Demand. interval 
REQ.ro. INVENTORY 

PRINT. LEVELS  every  Trace. interval 
PRINT. DEMANDS  every  Trace. interval 
PRINT. ATEND 

GET. PLOT. DATA  every  Plot. interval 
Wait  End. of. simulation  days 
PLOT. ATEND 
PRINT. PGCSTATS 
ADD.ALL.PGCS 
Stop 

LISTING  OF  PROCEDURES 

PREAMBLE 

MAIN 

ADD.ALL.PGCS 

CALC. ORDER. QTY 

COMPUTE. ROP.PCP 

CONFIDENCE. INTERVAL 

COVAR. SAMPLING 

DEMAND. GENERATOR 

DISTRIBUTION. DATA 

GET. PLOT. DATA 

GRAPH. INITIALIZE 

INPUT .MPTOll . DATA 

INPUT. SSCF. DATA 

INPUT. VSL. DATA 

LAYINTO. MATRIX 

MATRIX . DELIVERY . SCHEDULE 

MBTHODl . SCHEDULE 

OPTIONAL . ASSUMPTIONS 

PGC. INITIALIZE 

PLACE. PGC. ORDER 

PLOT. ATEND 

PRINT. ASSUMPTIONS 

PRINT. ATEND 

PRINT . DELIVERY . MATRIX 

PRINT. DEMANDS 

PRINT. LEVELS 

PRINT. ORDER 

PRINT. PGCSTATS 

PRINT. QUERIES 

PRINT. QUICK. COVAR 

PRINT. SSCF. DATA 

RECEIVE . PGC . ORDER 

REQ. TO. INVENTORY 
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REVIEW. IMVEMTORT 

RTC . REQUISXT . CUTOFF 

SET. OPTIONS 

SET. SIMULATED. DOR 

SIMULATION. RUM 

SUM . FORECAST . OVER. TIME 

UPDATE. CTREQ. MAT 

WARMUP. RESET 

XTZ . PLTS 

DESCRIPTION  OF  PROCEDURES 

PREAMBLE 

CLOTHING  AND  TEXTILE  SIMULATION  MODEL  (directory  DLA)  basic  features: 

1)  options:  requisitions/unit  demands,  constant  monthly  average 
DDR/Poisson  DDR, 

2}NSN  and  recruit  training  centers  seperate 

3) ROP  &  PCP  computations 

4) variables:  stock, EBO,AVBOD, fill  rates, demands 

5) Normalized  CTREQ. MAT  that  is  shifted  &  filled  in  to  allow  multi¬ 
year  runs 

6) dynamic  graphics  include:  dynamic  plot  of  net  stock  by  PGC  or 

NSNs,  histogram  of  %  time  with  backorders,  4  fill  rate  meters, 
and  EBO  and  demand  pie  charts. 

7)  PLT  distribution  as  random  linear  variable  from  CLIN  report 

8)  Covariance  and  confidence  interval 

9}  Restoring  statistics  after  a  warmup  period 

10)  MAO  by  MSN  for  demand  generation 

11)  Phase  Deliveries 

12)  PGC  plot  and  histogram 

13)  PLT  Knob  to  vary  the  CLIN  distribution  shape  &  variance 

14)  Demand  Knob  makes  the  mean  demand  a  %  >  or  <  the  forecast  mean 

15)  QFD  considered  alone  or  with  POI 

16)  4  matrix  delivery  schedules  with  assumptions  from  MPTOll  table 

17)  a  VSL  option  with  VSL  months  read  in  from  external  file 

18)  2  options  accummulates  stats  over  many  runs  same  PGC  or  different 
20)  A  maximum  of  12  queries 

MAIM 

This  routine  has  the  basic  initialization  steps  and  data  input  before 
the  actual  simulation  starts  stepping  through  time 

ADD.ALL.PGCS 

This  routine  reads  previous  PGC  tallied  results  and  adds  current 
PGC  results  to  it.  If  results  in  the  file  are  from  different  PGCs 
it  also  sums  all  PGCs  and  prints  grand  total  to  a  file 

CALC. ORDER. QTT 

This  routine  calculates  the  order  quantity  for  a  MSN  in  a  PGC.  The 
quantity  equals  the  difference  between  the  current  inventory 
position  (onhand  onorder  -  backorders)  and  the  PTAO 
(peace  time  acquisition  objective) 
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COMPUTE. ROP.PCP 

This  process  conputes  PCP  in  months,  ROP  for  all  NSMs  every  30  days 

CONFIDENCE. IMTERVAL 

This  routine  calculates  the  covariances  for  all  lags  and  the 
confidence  intervals. 

General  covariance  formula  for  the  kth  lag  (Ck): 

Cka(l/N-k)  sum  (Xi-ave.X)  (Xi-t-k  -  ave.X)  :sum  is  for  1  to  N-k 
The  one  pass  formula 

Ck^l/N-k  {Xi*Xi-«-k  -  (k-i-N)ave.X**2  +  ave.X  [sumXl..k  *  sumXn-k-t-l .  .N]  } 

where  A  A  A 

PRODUCT.  MAT  (NSN,K)  [  SUM.  K.  ENDS  (NSN,K)  ] 

COVAR. SAMPLING 

This  process  samples  and  updates  required  variables  to  estimate 
the  covariances  for  each  NSN  and  the  PGC.  (see  Gross  p418.) 

DEMAND . GENERATOR 

This  process  generates  demands  and  reguistions  for  a  given  NSN 

DISTRIBUTION . DATA 

This  routine  intializes  random  variables  distributions  for  the 
PLT. DAT. DELAY  (CLIN  report),  REQUISITION. RATIO. F( US IMS  <5 
requisition  distribution),  and  DEMAND. MAPE.F  from  Orchowsky's  POI 
report  pg.  6 

GET. PLOT. DATA 

This  process  gets  or  calculates  several  plotted  variables  for 
dynamic  net  stock  plot  &  static  plotted  histogram  graphics. 

GRAPH. INITIALIZE 

This  routine  initializes  graphics  at  the  start  of  program:  shows 
the  pie  charts,  determine  histogram  intervals  (.5  of  safety  level) 
and  displays  the  dynamic  traces 

INPUT. MPTO 11. DATA 

This  routine  Reads  management  policy  table  11  and  gets  the  minimum 
procurement  cycle,  PGC  delivery  percents  for  all  delivery 
increments,  1  of  4  methods  of  delivery,  PGC  first  delivery  in  days. 

INPUT. SSCF. DATA 

This  routine  reads  the  required  input  data  to  run  the  simulation 
original  captured  from  the  Special  Supply  Control  File  Report  via 
a  SIMSCRIPT  program  in  directory  DLADATA.  ThB  routine  finds  the 
desired  PGC  number,  and  reads  in  the  data  into  the  approriate 
variables.  If  the  PGC  number  is  not  found  the  program  prints 
error  message  and  stops 

INPUT. VSL. DATA 

This  routine  is  called  if  user  specifies  the  VSL  option  as  true 
question  (4).  It  searches  the  "VSL. DAT"  file  for  the  PGC  number 
and  overrides  the  fix  safety  level  values  from  the  SSCF  with  the 
VSL  values  in  months  in  the  file 
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UITZNTO. MATRIX 

This  routine  develops  X,  Y,  Z  amounts  of  delivery  for  all  delivery 
months.  Example:  It  takes  the  Z  item  target  of  100%  in  6th  month 
and  the  total  percent  SUM  of  Z  items  for  the  PGC  (e.g.,  20%).  It 
then  makes  sure  the  target  times  the  SUM  will  not  exceed  the 
PGC  DELIVERY. PERCENT  (e.g.,  15%)  by  month.  Since  it  does  exceed  the 
PGC. DELIVERY. PERCENT  (20>15),  it  takes  the  overflow  (5%)  and  moves 
it  into  the  previous  month  (the  Sth  month).  The  5%  now  becomes  the 
target  for  the  Sth  month  and  the  cycle  repeats. 

MATRIX . DELIVERY . SCHEDULE 

This  routine  lays  in  the  different  X,  Y,  &  Z  percent  deliveries 
per  month  vector  into  the  XYZ. MATRIX  for  each  of  the  3  delivery 
methods.  Method  1  does  not  use  the  X,Y,  Z  percents  but  a  sort 
in  routine  METHODl . SCHEDULE 

METHODl . SCHEDULE 

For  method  1,  the  delivery  is  made  in  clumps,  not  spread  over  several 
months  like  other  methods.  So  take  first  months  delivery  percent  and 
bring  in  as  many  NSNs  as  month  can  handle  (ex.  10%).  Set  the 
XYZ. MONTH  value  at  1  to  mean  bring  entire  order  in  first  month.  If 
an  NSN  can  have  50%  of  its  order  brought  in  in  the  current  month  do 

so,  if  not  have  NSN  be  brought  in  next  month. 

OPTIONAL . ASSUMPTIONS 

This  routine  lets  the  user  override  the  standard  assumptions,  options 
or  trace  settings  found  in  PGC. INITIALIZE  &  SET. OPTIONS  and  lets 
the  user  specify  there  own  by  editing  the  file  ASSUMP.mod  &  entering 
1  in  the  user  query  (10),  select  alternate  Assumption  file. 

PGC. INITIALIZE 

This  routine  intializes  some  of  the  basic  PGC  variables  such  as 
time  intervals  between  processes,  PC  variables,  mean  FORECASTS, 
and  covariance  information. 

PLACE. PGC. ORDER 

This  process  checks  the  inventory  position  of  all  NSNs  in  the  PGC 

at  the  time  of  breach.  The  process  determines  whether  any  of  the  other 

NSNs  will  breach  their  ROP  within  the  next  minimum  procurement  cycle. 

It  then  calls  the  CALC. ORDER. QTY  to  determine  the  specific  NSN 
order  quantity  of  the  NSNs  that  will  be  ordered.  The  process  then 
waits  an  ALT  +  1ST  delivery  days  +  a  PLT  delay  before  calling 
RECEIVE. PGC. ORDER.  It  then  waits  30  days  for'each  additional  phased 
order  (aganing  calling  RECEIVE. PGC. ORDER)  until  the  entire  order  is 
received. 

PLOT.ATEND 

This  routine  plots  the  histogram,  BO  &  demand  pie  charts,  fill  rate 
meters  at  the  end  of  program  run. 

PRINT . ASSUMPTIONS 

Prints  all  pertinent  assumptions  and  variables  for  the  run  including 
options,  query  answers,  safety  level,  OWRM,  PLT,  ALT,  Ml,  M2,  T,  COST 
ARS,  RTC  CUTOFF,  VIP,  XYZ.  MONTH  ETC. 
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PRINT. ATEMD 

This  routine  prints  the  table  of  sununary  statistics  during  and  at 
the  end  of  simulation:  requisition  vs  unit,  total  vs  RTC,  for  EBO, 
AVBOO,  fill  rates,  and  demands/yr. 

PRINT . DELIVERY . MATRI X 

This  routine  prints  the  delivery  matrix:  the  3  rows  are  X,  Y,  Z; 
columns  are  for  the  number  of  deliveries.  Values  are  the  fraction 
of  the  total  item  order  delivered  that  month  (i.e.  each  row 

sums  to  1. 

PRINT. DEMANDS 

This  process  gives  requisition  size  and  iterval,  AMF,  AMF/AMD 
ratio, onhand,  onorder  information  at  specified  intervals,  calls 
PRINT. ATEND,  and  gives  cummulative  BOs  and  demands. 

PRINT . LEVELS 

This  process  prints  the  requirements,  PC,  MIN. PC,  stock,  backorders 
at  specified  intervals 

PRINT. ORDER 

Prints  the  order  quantity  placed  for  all  NSNs,  PLT  delays,  when 
will  come  in,  and  inventory  positions  all  at  time  of  breach  and 
when  order  completely  delivered. 

PRINT. PGCSTATS 

This  routine  prints  the  summary  statistics  at  the  end  of  the 
simulation  at  a  PGC  level.  Specifically,  backorders, 
availabilities,  and  annual  demands  (requisition  &  unit  levels); 
onhand,  onorder,  orders/yr  values;  and  calibration  information 
confidence  intervals,  %  onorder  to  total  stock,  etc. 

PRINT. QUERIES 

This  routine  prints  the  answers  entered  by  user  during  interactive 
session. 

PRINT . QUICK . COVAR 

This  process  uses  an  approximation  formula  to  estimate  the 
covariance  continuously  at  intervals  thoughout  the  simulation. 

Used  primarily  to  determine  end  of  warmup  period  and  length  of 
run  as  well  as  the  rate  of  confidence  interval  change.  Uses 
info,  collected  by  COVAR. SAMPLING  process  and  'automatically 
printed  for  long  runs 

PRINT. SSCF. DATA 

This  routine  prints  the  SSCF  data  read  in  by  routine  INPUT . SSCF . DATA 

RECEIVE . PGC . ORDER 

This  routine  adjusts  stock  and  backorders  when  a  stock  shipment  is 
received  from  suppliers.  It  is  called  by  PLACE. PGC. ORDER.  It 
uses  the  XYZ. MATRIX  for  methods  2,  3,  4  and  XYZ. MONTH  for  method  1. 

REQ. TO. INVENTORY 
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This  routine  updates  on  hand  STOCK  and  if  necessary  updates  MSM 
and  recruit  backorders  (BO)  when  ever  a  requisition/  customer 
demand  is  felt. 

REVIEW. IMVEMTORy 

This  process  reviews  the  inventory  every  REVIEW. IMTERVAL  days  to 
see  if  inventory  position  IP  (onorder  +  stock  +  BO)  <  ROP.  If  so  will 
activate  PLACE . PGC . ORDER  to  determine  which  RSRs  and  how  much  to  buy 

RTC . REQUISIT . CUTOFF 

This  routine  automatically  determines  the  requisition  size  cutoff. 

All  requisition  sizes  above  cutoff  will  be  assumed  to  come  from  the 
Recruit  Training  Centers  and  if  summed  their  percent  demand  would 
equal  the  PER. RTC. DEMAND.  This  routine  finds  the  point  in  the 
Requisition  distribution  where  those  conditions  are  meet. 

SET. OPTIONS 

This  key  routine  is  where  all  options  are  set,  queries  are  asked, 
traces  are  defined  and  set,  and  I/O  units  are  defined 

SET . SIMULATED . DDR 

This  process  updates  monthly  DDR  for  the  simulation.  First  converts 
the  forecast  value  to  simulated  monthly  demand  via  MAPE,  MAD,  and 
demand  KNOB  factors  if  activated.  Then  divides  the  monthly  value 
(30  days/demand  interval)  to  get  a  daily  demand  rate  (DDR).  Mote 
if  demand. interval  >  1  could  be  demand  for  2,  10,  15  days,  whatever. 

SIMULATION. RUN 

This  process  gives  the  general  structure  of  the  simulation  and 
starting  point  for  all  processes. 

SUM . FORECAST . OVER . T IMS 

This  routine  sums  the  CT  POI  and  QFD  requirements  over  the  given  period 
(TIME.V  to  TIME.V  +  PERIOD)  to  get  a  total  FORECAST.  The  PERIOD  is 
in  months  or  month  fractions,  a  real  number,  and  is  used  to  sum  PCP, 
Safety  level,  ROP,  MIN. PC,  values.  With  POI  items,  this  routine 
can  some  8  years  of  monthly  data,  however  for  non  POI  items  the 
monthly  demand  does  not  chang  over  time  but  is  QFD/3. 

UPDATE. CTREQ. MAT 

This  process  makes  sure  there  are  enough  future  months  of  POI 
forecasts  so  that  all  levels  (ROP  and  PTAO)  can  be  calculated. 

This  process  determines  the  mean  and  standard  deviation  for  normal 
distribution  from  the  input  CTREQ. MAT.  Also,  Every  CTREQ. period 
this  process  shifts  the  CTREQ  values  a  period  up  in  the  matrix  so 
that  old  values  are  disgarded.  It  then  fills 

in  the  empty  last  period  spots  in  the  matrix  with  newly  generated 
CTREQ  from  the  normal  distribution. 

WARMUP. RESET 

This  process  resets  all  appropriate  statistics  back  to  zero 
once  the  initial  warmup  period  is  over  and  the  transient  effects 
have  apparently  been  washed  out  of  simulation.  This  is  so  the 
final  statistics  at  end  of  simulation  are  not  effected  by  warmup 
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period. 

Xy2 . PLTS 

This  routine  determines  which  NSM  are  X,  Y,  or  Z  items,  and  based 
on  delivery  method  1  to  4,  the  PLTs  £or  each  NSN. 

SOURCE  CODE 

PREAMBLE 

"CLOTHING  AND  TEXTILE  SIMULATION  MODEL  (directory  DLA)  basic  features: 

"  1)  options:  requisitions/unit  demands,  constant  monthly  average 

' '  DDR/Poisson  DDR, 

' '  2)NSN  and  recruit  training  centers  seperate 
' '  3)ROP  6  PCP  computations 

"  4)variables:  stock, EBO,AVBOD, fill  rates , demands 

' '  5)Mormali2ed  CTREQ.MAT  that  is  shifted  &  filled  in  to  allow  multi- 
' '  year  runs 

' ’  6)dynamic  graphics  include:  dynamic  plot  of  net  stock  by  PGC  or 
"  NSNs,  histogram  of  %  time  with  backorders,  4  fill  rate  meters, 

' '  and  EBO  and  demand  pie  charts. 

"  7)  PLT  distribution  as  random  linear  variable  from  CLIN  report 

'  '  8)  Covariance  and  confidence  interval 

"  9)  Restoring  statistics  after  a  warmup  period 

"  10)  MAD  by  NSN  for  demand  generation 
"  11)  Phase  Deliveries 
"  12)  PGC  plot  and  histogram 

' '  13)  PLT  Knob  to  vary  the  CLIN  distribution  shape  6  variance 

"  14)  Demand  Knob  makes  the  mean  demand  a  %  >  or  <  the  forecast  mean 

"  15)  QFD  considered  alone  or  with  POI 

'  '  16)  4  matrix  delivery  schedules  with  assumptions  from  MPTOll  table 
"  17)  a  VSL  option  with  VSL  months  read  in  from  external  file 
' '  18)  2  options  accummulates  stats  over  many  runs  same  PGC  or  different 
"  20)  A  maximum  of  12  queries 

NORMALLY  MODE  IS  UNDEFINED 
PROCESSES  INCLUDE 

UPDATE. CTREQ.MAT,  "shifts  fi  inserts  the  CTREQ  values  in  a  period 
COMPUTE. ROP. PCP,  ' 'computes  procurement  cycles  (PCP. MONTH)  &  ROP 
SET. SIMULATED. DOR,  ''sets  monthly  DDR  (given:  demand  knob  &  MAD) 
PRINT. LEVELS, ' 'start  of  months  ROP,  PCP,  BOs,  orders,  stock 
PRINT . DEMANDS ,  ''prints  end  of  month  sim.  DMD  &  EBOs:  NSNs  &  RTC 
REVIEW. INVENTORY,  ''continuously  checks . inventory  for  breaches 
PLACE. PGC. ORDER,  "orders  NSNs  stock,  waits  a  LT  ( PLT+ALT+DELAY ) 
SIMULATION. RUN,  ''starting  sequences  of  all  simulation  processes 
GET. PLOT. DATA,  ''gets  net  stock  plot  variables  every  x  days 
COVAR. SAMPLING,  ''samples  &  performs  some  Covariance  calculations 
PRINT. QUICX.COVAR,  ''approximates  covar  continuously  over  run 
WARMUP. RESET  ' 'after  warmup  period,  a  reset  cum.  statistics 
EVERY  DEMAND. GENERATOR* 'generates  demand  6  requistion  given  a  NSN 
BAS  A  NSN.D 

DEFINE  NSN.D  AS  AN  INTEGER  VARIABLE 
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PRIORITT  ORDER  IS  UPDATE . CTREQ . MAT ,  DEMAND. GENERATOR, 

PLACE. PGC. ORDER, REVIEW. INVENTORY,  PRINT . DEMANDS ,  GET . PLOT . DATA , 
WARMUP. RESET,  COMPUTE . ROP . PCP ,  SET. SIMULATED. DDR,  COVAR. SAMPLING, 
PRINT. QUICK. COVAR,  SIMULATION. RUM,  PRINT. LEVELS 

PERMANENT  ENTITIES 

EVERY  MSN. ATTRIBUTES  HAS  "key  attributes  for  each  MSN 
A  PLT.DAY,  "procurement  leadtimes  in  days 
A  ARS,  ' 'average  requistion  size 

A  FORECAST . MTH ,  ''the  current  months  forecast  of  both  POI  &  QFD 
A  AVE . FORECAST ,  '  'AMF  over  course  of  simulation:  CTREQ-t-QFO/3 
A  ROP.QTY,  ''reorder  point  in  units 

A  PCP. MONTH,  ' 'procurement  cycle  period  in  months 
A  SAFETY. MONTH,  "safety  level  in  months  either  VSL  or  FSL 
A  DDR, ''mean  daily  (or  fev  day)  demand  rate  demand  for  the  month 
A  SIN. DDR,  ''actual  daily  demand  from  poisson  (else^DOR) 

A  ONORDER,  ' 'outstanding  onorder  items  yet  to  be  received 
A  STOCK,  ''in  stock  items  or  onhand  at  inventory 
A  MET. STOCK,  ' 'STOCK-BO  at  a  point  in  time  for  plots 
A  OWRM,  ''other  war  reserve  material  protectable  units 
A  RECRUIT. SIZE. CUTOFF,  "  requist.  sizes  above  cut  are  from  RTCs 
A  PER. RTC. DEMAND,  ''the  percentage  of  recruit  to  total  demand 
A  VIP. ITEM,  ''  1-yes  VIP(monthly  ROPT),  0  Not  VIP  (quarterly) 

A  MAD,  ' 'mean  absolute  deviation  in  QTR  demand  (monthly  if  VIP) 

A  QFD,  ' 'quarterly  forecast  demands  directly  from  SSCF 
A  ALPHA,  ' '  alpha  factor  from  SSCF 

A  XYZ. MONTH,  ''  X,Y,Z  items  have  a  1,2,3  so  that  proper  % 
''delivery  vector  is  used  (if  method  1  means  month  delivered) 

A  NSN.NO  "  the  NSN  number 

OWNS  A  REQ. BO. QUEUE  ''requisition  backorder  queue 

DEFINE  PLT.DAY,  ROP.QTY,  PCP. MONTH,  PC.EOQ,  ARS,  MAD,  XYZ. MONTH, 
DDR,  RECRUIT. SIZE. CUTOFF,  PER. RTC. DEMAND  AS  REAL  VARIABLES 
DEFINE  ALPHA, QFD, SAFETY. MONTH,  SIM. DDR,  AVE . FORECAST , 

FORECAST. MTH,  OWRM, MET. STOCK,  STOCK,  ONORDER  AS  REAL  VARIABLES 
DEFINE  VIP. ITEM  AS  INTEGER  VARIABLE 
DEFINE  REQ. BO. QUEUE  AS  A  FIFO  SET 
DEFINE  NSN.NO  AS  TEXT  VARIABLE 

''  statistical  information  on  backorders  for  total  &  RTCs 
EVERY  DEMAND. BO  AND  MSN. DETAIL  HAS  "detail  dimension  for  recruits 
A  REQ. SIZE, ' '  requisition  fi  sum  is  unit  demand  for  NSN  &  RTCs 
A  REQ.  INTERVAL,  ''requisition  time  irnterval  for  MSN  &  recruits 
A  REQ. BO,  ' '  requisition  backorders  for  EBOs  (MSN  and  recruits) 

A  UNIT. BO,  ''  total  unit  backorders  for  EBOs  (MSN  &  recruits) 

A  SUN. REQ. BO,  ''sum  of  backorder  requisitions  u«ed  in  fill  rate 
A  SUN. UNIT. BO' ' sum  of  unit  BO  used  in  fill  rate  calc. 

DEFINE  REQ. SIZE,  REQ. BO,  UNIT. BO  AS  REAL  VARIABLES 

DEFINE  SUN. UNIT. BO,  SUM. REQ. BO,  REQ. INTERVAL  AS  REAL  VARIABLE 

EVERY  PLOTNSN  HAS  ''a  plot  var  with  all  NSN  total  recruits 
A  FILLRATE  ''1  -  BO/DENAMD  *  100,  used  in  plotting  meters 
DEFINE  FILLRATE  AS  REAL  VARIABLE 
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EVERY  COVAR.IMFO  HAS 

A  COVAR.OATA,  ''used  in  calc,  mean  i  variance  of  COVAR  sample 
OMHS  A  COVAR. SET  ' 'contains  last  k  previous  samples 
DEFINE  COVAR. SET  AS  A  FIFO  SET 
DEFINE  COVAR. DATA  AS  A  REAL  VARIABLE 

TEMPORARY  ENTITIES 

EVERY  REQ. BO. MEMBER 

BAS  A  BO.SI2E,  ''unit  backorders  for  a  requisition 
A  BO. TYPE,  ' '  either  recruit  or  total  NSN 
BELONGS  TO  THE  REQ. BO. QUEUE 
DEFINE  BO. TYPE  AS  INTEGER  VARIABLES 
DEFINE  BO. SIZE  AS  REAL  VARIABLES 
EVERY  COVAR. MEMBER  ''sample  BO  data  points  w/  k  points  in  set 
BAS  A  DATA. POINT 
BELONGS  TO  THE  COVAR. SET 
DEFINE  DATA. POINT  AS  REAL  VARIABLES 


timing  characteristics  of  simulation 
DEFINE  DAYS  TO  MEAN  UNITS 
DEFINE  END. OF. SIMULATION, 

LENGTH. OF. SIMULATION  AS  A  REAL  VARIABLE 
PGC  characteristics 

DEFINE  MAX. MONTH,  "number  of  months  IN  POI  CTREQ  forecasts 
MAX. NSN  AS  INTEGER  VARIABLE  ' '  number  of  NSNs  in  PGC 
DEFINE  COST  AS  REAL  VARIABLES 
DEFINE  PGC. NAME  AS  TEXT  VARIABLE 

DEFINE  ICC  AS  TEXT  VARIABLE  ''type  of  requirements  calculation 

DEFINE  FSC  AS  INTEGER  VARIABLE  ' ' federal  supply  code 

DEFINE  PGC. NO  AS  INTEGER  VARIABLE  "PGC  code  number 

DEFINE  MIN. PC  AS  A  REAL  VARIABLE  ' 'min.  procurement  cycle(MPT  11) 

DEFINE  SIM.PLT.DAY,  ALT. DAY  AS  A  INTEGER  VARIABLES 

simulated  PLT  used  in  order  delay,  PLT.DAY  used  in  levels 
DEFINE  PGC. NET. STOCK  AS  REAL  VARIABLE  "for  plot  &  histogram 
DEFINE  PGC. SL. STOCK  AS  REAL  VARIABLE  "PGC  safety  level  stock 
DEFINE  RUN. ID  AS  REAL  VARIABLE  "ID  when  run  PGC  more  than  once 
THE  SYSTEM  BAS 

A  DEMAND. MAPE.F  RANDOM  LINEAR  VARIABLE,  ' 'mean  %  error  in  demand 
' '  or  the  ratio  of  forecast  to  actual  demand 
A  REQUISITION. RATIO. F  RANO<»l  LINEAR  VARIABLE,  "ratio  of  size/ARS 
' '  distribution  from  USIMs 

A  PLT. OAT. DELAY. F  RANDOM  LINEAR  VARIABLE"  CLIN  PLT  distribution 
DEFINE  DEMAND. MAPE.F  AS  A  REAL,  STREAM  10  VARIABLE 
DEFINE  REQUISITION. RATIO. F  AS  REAL,  STREAM  9  VARIABLE 
DEFINE  PLT. DAY. DELAY. F  AS  REAL,  STREAM  7  VARIABLE 
DEFINE  CTREQ. MAT  AS  A  REAL,  3-DIMENSIOMAL  ARRAY 
NSN  specfic  means  and  stand,  deviation  of  requirement  matrix 
DEFINE  MEAN. CTREQ  AND  STD. CTREQ  AS  A  REAL,  l-OIMENSIONAL  ARRAYS 
DEFINE  TARGET. PGC  AS  INTEGER  VARIABLE  "PGC  looking  for  to  get  data 

matrices  &  VAR  for  COVAR. SAMPLING  6  CONFIDENCE  INTERVAL  routines 
DEFINE  PRODUCT. MAT  AS  A  REAL,  2-DIMENSIONAL  ARRAY  "covar.  product 
holds  sum  for  first  and  last  k  items 
DEFINE  SUM. K. ENDS  AS  A  REAL,  2-DIMENSIONAL  ARRAY 
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DEFINE  PGC.NUN,  R.LAG.  M.COVAR,  N. BLOCKS  AS  INTEGER  VARIABLES 
DEFINE  CONF.INTV  AS  A  REAL  VARIABLE  "confidence  interval  derived 

DEFINE  XTZ.SUM  AS  A  REAL,  1-DIMENSIONAL  ARRAY  "sum  of  all  X  NSNs  % 
of  PCF  demand,  (same  for  Y,  &  Z  items  in  matrix  delivery  scheme. 
DEFINE 

MAX.DELIVERIES,  "  no.  of  months  of  deliveries  for  the  PGC  (MPTOll) 
FIRST. DELIVERY,  "days  of  PLT  before  a  NSN  is  delivered 
Z. PERCENT,  "Z  item  <*  x%  of  PC*OEMAMD  for  matrix  deliveries 
X. PERCENT  "X  item  »  x%  of  PC*OEMAND,  Y  item  remainder 
AS  REAL  VARIABLES 

DEFINE  Ml,  M2,  T  AS  REAL  VARIABLE  "used  in  procurement  cycle  PCP 
DEFINE  DEL I VERY. PERCENT  AS  A  REAL,  1-DIMENSIONAL  ARRAY  "percnet 
PGC  order  delivered  each  month  in  matrix  delivery 
DEFINE  XYZ. MATRIX  AS  REAL,  2-DIMENSlOMAL  ARRAY  "XYZ  matrix  deliv.  % 
DEFINE  MONTHLY. MAPE  AS  REAL  VARIABLE  ' 'MAPS  for  month 

DEFINE  ORDER. NUMBER, CTREQ. PERIOD,  MAX.CTREQ.DIM  AS  INTEGER  VARIABLE 
DEFINE  AT. MONTH, MONTH. I, NSN. 1  AS  INTEGER  VARIABLES " array  indices 
simulation  options  &  traces  below,  see  SET. OPTIONS  for  definitions 
DEFINE  PLT. OPT,  "PLT  Knob:  0  no  variance,  1^  CLIN,  >1  a  fi  of  CLIN 
DMDMAD.OPT  "Demand  Knob  0  no  MAD  variance,  1  uses  MAO, 

>1  then  ratio  *  forecast  (eg  .95  demand  mean  95%  of  forecast 
AS  REAL  VARIABLE 

DEFINE  NORMAL. OPT,  OOREQ.OPT,  POISSON. OPT,  MAPE. OPT,  VSL.OPT, 
NEWASSUMP.OPT,  COVARNSN . OPT ,  SHORT. OPT,  DELIVERY. OPT,  BATCH. OPT, 
MODIFYOATA.OPT,  MOOMPTOll .OPT,  ADDPGC.OPT  AS  INTEGER  VARIABLES 
DEFINE  TRACEl,  TRACE2,  TRACES,  TRACE4 ,  TRACE5,  TRACES,  TRACE? , 
TRACES,  TRACE9,  TRACEIO,  TRACSll,  TRACE12,  TRACE13,  TRACE14, 
TRACE15,  TRACE16,  TRACE17,  TRACE18,  TRACE19,  TRACE20,  TRACE21, 
TRACE22,  TRACE23,  TRACE24,  TRACE . INTERVAL , 

PLOT. INTERVAL,  DEMAND . INTERVAL ,  REVIEW. INTERVAL,  COVAR. INTERVAL, 
QUICK. INTERVAL,  WARMUP . PERIOD  AS  INTEGER  VARIABLES 
constants 

DEFINE  .TOTAL  TO  MEAN  1  "  next  3  constants  are  the  columns 
DEFINE  .RECRUIT  TO  MEAN  2  "  of  the  CTREQ. NAT  array 

DEFINE  .OTHER  TO  MEAN  3 
DEFINE  .TRUE  TO  MEAN  1 
DEFINE  .FALSE  TO  MEAN  0 
DEFINE  . DPM  TO  MEAN  30  ' ' DAYS  PER  MONTH 
DEFINE  .MINVAL  TO  MEAN  0.000000000001 
DEFINE  HIS. BO. 1,  BIS. BO. 2,  BIS. BO. 3  AS  INTEGER  VARIABLES 

DISPLAY  VARIABLES  INCLUDE  NET. STOCK,  PGC . NET . STOCK ,  FILLRATE, 
EBO.PIE,  DEMAND. PIE 

backorders  fi  demand  values  for  pie  chart 

DEFINE  EBO.PIE,  DEMAND. PIE  AS  A  REAL,  l-DIMENSIONAL  ARRAY 
DEFINE  PGC. PLOT  AS  REAL  VARIABLE 

DEFINE  PLOT.YSCALE  AS  REAL  VARIABLE" scales  PGC  net  stock,  Y  axis 
most  of  next  tally  are  variables  in  routine  PRINT . DEMANDS 
TALLY  AVE.NAPE  AS  THE  MEAN  OF  MONTHLY. MAPE 
TALLY  SUM. FORECAST  AS  THE  SUM  OF  FORECAST. NTH 

TALLY  AVE.REQ.SIZE  AS  THE  MEAN,  SUN. REQ. SIZE  AS  THE  SUN,NO. REQ . SIZE 
AS  THE  NUMBER  OF  REQ. SIZE  "sum  fi  num  is  for  unit  fi  regt.  demands 
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TALLY  AVE.REQ. INTERVAL  AS  THE  MEAN  OF  REQ. INTERVAL 
TALLY  AVE.SIM.PLT  AS  THE  KEAN  OF  SIM.PLT.DAY 

TALLY  AVE.COVAR.DAT A  AS  THE  MEAN,  VAR. COVAR. DATA  AS  THE  VARIANCE 
OF  COVAR. DATA 

TALLY  HIST.PGC.ST0CK(HIS.B0.1  TO  HIS. BO. 2  BY  HIS. BO. 3)  AS  THE 
HISTOGRAM,  AVE . PGC . NET . STOCK  AS  THE  MEAN  OF  PGC . MET . STOCK 
TALLY  HIST. PGC. PLOT (HIS. BO. 1  TO  HIS. BO. 2  BY  HIS. BO. 3)  AS  THE 
HISTOGRAM  OF  PGC. PLOT 
ACCUMULATE  AVE.REQ.EBO  AS  THE  MEAN 

OF  REQ. BO  ''time  weighted  BOs  or  EBOs 
ACCUMULATE  AVE. UNIT. EBO  AS  THE  MEAN  OF  UNIT. BO"  time  weighted  EBOs 
ACCUMULATE  AVE. STOCK  AS  THE  MEAN  OF  STOCK  "time  weighted  NSN  stock 
ACCUMULATE  AVE.ONOROER  AS  THE  MEAN  OF  ONORJDER  "by  NSN 
END* 'PREAMBLLE 


MAIM 

' '  This  routine  has  the  basic  initialisation  steps  and  data  input  before 
' '  the  actual  simulation  starts  stepping  through  time 
CALL  SET. OPTIONS 
CALL  INPUT. SSCF. DATA 
CALL  INPUT. MPTO 11. DATA 
CALL  PGC. INITIALIZE 
CALL  PRINT. SSCF. DATA 
IF  VSL.OPT«.TRUE 

CALL  INPUT. VSL. DATA 
ALWAYS 

CALL  XYZ.PLTS 

CALL  MATRIX. DELIVERY. SCHEDULE 
CALL  DISTRIBUTION. DATA 
CALL  RTC.REQUISIT. CUTOFF 
CALL  GRAPH. INITIALIZE 
ACTIVATE  A  SIMULATION. RUN  MOW 
START  SIMULATION 
END' 'MAIN 


ROUTINE  AOO.ALL.PGCS  GIVEN  NEWPGC 

' 'This  routine  reads  previous  PGC  tallied  results  and  adds  current 
*'  PGC  results  to  it.  If  results  in  the  file  are  from  different  PGCs 
*'  it  also  sums  all  PGCs  and  prints  grand  total  to  a  file 
DEFINE  ROW,  COL,  MAX. COL,  MAX. PGC  AS  INTEGER  VARIABLES 
DEFINE  SUM. PGC,  NEWPGC  AS  REAL,  l-DIMEMSIONAL  ARRAY 
DEFINE  PGC. MAT  AS  REAL,  2-DIMEMSIOMAL  ARRAY 
MAX.C0L>11 
MAX.PGC-1 
IF  (AODPGC.OPT-0) 

''THEN  don't  add  this  PGC  to  accumulated  PGC  info  from  previous  runs 
RETURN 
ALWAYS 

I F ( ADDPGC . OPT>* 1 0 ) 

'  "THEM  1st  run  no  reads 
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RESERVE  PGC.NAT(*,*)  AS  MAX.PGC  BY  MAX. COL 
ALWAYS 

RESERVE  MEWP6C(*),  SUM.PGC(*)  AS  MAX. COL 
Zr  (AODPGC.OPT-l)  OR  <AI)DPGC.OPT-10} 

' '  THEM  enter  the  run  ZD  number  instead  of  the  PGC  number 
MEHPGC(1)>RUM.ZD 
ALWAYS 

OPEN  UNZT  17  FOR  ZMPUT,  FILE  HAMS  ZS  ”C:\SZM\0LA\ALLPGCS.0AT" 

USE  UMZT  17  FOR  ZMPUT 
ZF  AODPGC.OPT  <  10 

''THEM  not  first  PGC  so  read  existing  information  and  store 
SKIP  2  ZMPUT  RECORDS 
READ  MAX.PGC 
MAX.PGC>MAX.PGC  *  1 

RESERVE  PGC.MAT(*,*)  AS  MAX.PGC  BY  MAX. COL 
SKZP  5  ZMPUT  RECORDS 
FOR  ROW  -  1  TO  (MAX.PGC-1)  DO 
FOR  COL  -  1  TO  MAX. COL 

READ  PGC. MAT (ROW, COL) 

LOOP 

ALWAYS 

''stores  current  PGC  in  last  row  of  summary  statistics 
FOR  COL  -  1  TO  MAX. COL 

PGC. MAT (MAX. PGC, COL)  »  NEWPGC(COL) 

CLOSE  UMZT  17 

OPEM  UMZT  18  FOR  OUTPUT,  FZLE  NAME  IS  "C; \S1M\DLA\ALLPGCS.DAT'' 

USE  UMZT  18  FOR  OUTPUT 

PRZMT  6  LIME  WZTH  MAX.PGC  THUS 

AGGREGATE  PGC  REPORT  —  — 

**  PGC  RESULTS  ZN  SUMMARY  (FZLE  ALLPGCS.DAT) 

»««AVERAGE»  »%REQT»  ■■■■STOCK  LEVELS-^—  ■.■■-DEMAMD----^^*-^ 
PGC  BOH  SUP  AVAZL  (  $  100,000  )  UMZT  REQT  RTC  REQT 

/ZD  UMZT  REQT  ALL  RTC  OMHAMD  OMORDER  SAFETY  AMD/100  AMD  AMD 

FOR  ROW  ■  1  TO  MAX.PGC  DO 
BEGZM  REPORT  PRZMTZMG 

FOR  COL^l  TO  MAX. COL  ZN  GROUPS  OF  11 

PRZMT  1  LZMES  WZTH  A  GROUP  OF  PGC. MAT (ROW, COL)  FZELDS 
THUS 

**  *•  **  **  **  **  '  **  •*  **  **  ** 
LOOP 

EMD  ' ' REPORT 
ZF  AODPGC.OPT  *2 

' 'THEM  have  a  set  of  different  PGCs  so  add  to  get  system  results 
FOR  ROW  ■!  TO  MAX.PGC  DO 
FOR  COL^l  TO  MAX. COL  DO 
ZF  (COL^4)  OR  (COL^S) 

''THEM  fill  rates  so  weight  by  demand 
SUM. PGC (COL) ■SUM. PGC (COL)  + 

(PGC.MAT(ROW,COL)  *  PGC.MAT(ROW,COL+6) ) 

ELSE  ' '  just  sum  values 
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SlIM.PGC(COL)-SUM.PGC(COL)  PGC.  MAT  (ROW,  COL) 

ALWAYS 

LOOP 

LOOP 

FOR  COL>4  TO  5  DO 

SUM . PGC ( COL ) >  SUM . PGC ( COL ) /SUM . PGC ( COL+6 ) 

LOOP 

BEGIN  REPORT  PRINTING 

FOR  COL>2  TO  MAX. COL  IN  GROUPS  OF  10 

PRINT  2  LINES  WITH  A  GROUP  OF  SUM. PGC (COL)  FIELDS 
THUS 


TOTAL  **  **  **  **  **  **  **  **  **  ** 

END  ' ' REPORT 
ALWAYS 

PRINT  7  LINES  THUS 


KEY:  AMO 
REQT 
ALL 
RTC 
BOH 
SUP  AVAIL 


>  AVERAGE  MONTHLY  DEMAND 

a  requisitions 

>  ALL  CUSTOMERS  (PICS) 

a  RECRUIT  TRAINING  CENTERS 
a  BACKORDERS  ON  HAND 
-  SUPPLY  AVAILABILITY 


CLOSE  UNIT  18 

USE  UNIT  1  FOR  OUTPUT' 'pr int  this  PGC  results  to  trace  information 
PRINT  4  LINES  THUS 


■•■■AVERAGE*-  ■■%REQT»*  ■■■■STOCK  LEVELS-"**^  ■■•■■DEMAND--***-*^* 
PGC  BOH  SUP  AVAIL  ONRAND  ONOROER  SAFETY  UNIT  REQT  RTC 

REQT 

/ID  UNIT  REQT  ALL  RTC  ($  100,000)  AMD/100  AMD 

AMD 

BEGIN  REPORT  PRINTING 

FOR  COL-1  TO  MAX. COL  IN  GROUPS  OF  11 

PRINT  1  LINES  WITH  A  GROUP  OF  PGC . MAT ( MAX . PGC , COL )  FIELDS 
THUS 

•  *  **  •*  **  *•  **  **  **  **  **  ** 

END  ' ' REPORT 
CLOSE  UNIT  1 

END  "routine  ADD.ALL.PGCS 


ROUTINE  CALC. ORDER. QTY  GIVEN  NSN  YIELDING  ORDER. QTY 
' 'This  routine  calculates  the  order  quantity  for  a  NSN  in  a  PGC.  The 
*'  quantity  equals  the  difference  between  the  current  inventory 
''  position  (onhand  +  onorder  -  backorders)  and  the  PTAO 
'*  (peace  time  acquisition  objective) 

DEFINE  DMD.YEAR,  PERIOD,  PTAO  AS  REAL  VARIABLES 
DEFINE  NSN,  ORDER. QTY  AS  INTEGER  VARIABLES 
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********* 


••******  calculate  requirements  during  the  next  buy  period 
' '  sum  CT  REQ  from  time  of  breach  out  a  (ALT  +  PLT  +  PCP)  period 
PERIOD* ( (ALT. DAY  +  PLT . DAY (NSM) )/. DPM)  -I-  PCP . MONTH ( NSM ) 

CALL  SUM. FORECAST. OVER. TIME  GIVEN  NSN  AND  PERIOD  YIELDING  PTAO 
•I*******  calculate  the  safety  level  in  units  *********************** 

''  Safety  level  *  ave.  monthly  demand  *  Safety  level  (months) 

' '  Sum  next  12  months  of  forecast  demand  from  time  of  breach 

' '  CT  REQ  fraction  for  the  remaining  part  of  current  month 

PERIOD* 12.0 

CALL  SUM. FORECAST. OVER. TIME  GIVEN  MSN  AND  PERIOD  YIELDING  DMD.YEAR 

••*******  calculate  the  order  quantity  for  the  NSN  ******************** 
IF  TRACE18*.TRUE 

PRINT  1  LINE  WITH  MSN,  PTAO,  DMD.YEAR,  AT. MONTH  THUS 
++++++++  NSN  **  PLT+PCP  **  OMD.YR  **.*  AT. MONTH  ** 

ALWAYS 

PTAO*PTAO  +  OWRM(MSN)  +  ( (DMD. YEAR/1 2) *SAFETY. MONTH (MSN) ) 

'*  order  *  PTAO  -  inventory  position  (at  time  of  breach) 

ORDER. QTy*PTAO  •(STOCK(NSN)  +  ONORDER(MSM)-  UNIT. BO(MSM, .TOTAL) ) 

IF  TRACE18*.TRUE 

PRINT  1  LINE  WITH  MSN,  ORDER. QTY,  PTAO, STOCK ( MSN ) , 

UNIT. BO( NSN, .TOTAL)  THUS 

+++++  MSN  **  ORDER  **  PTAO  **  STOCK  **  BO  ** 

ALWAYS 

IF  ORDER. QTY<0 

' 'THEN  ROP  has  Changed  since  beginning  of  month  &  do  not  order 
ORDER. QTY*0 

ALWAYS 

END  "routine  CALC. ORDER. QTY 


PROCESS  COMPUTE. ROP. PCP 

''This  routine  computes  PCP  in  months,  ROP  for  all  MSMs  every  30  days 
DEFINE  ROP. REVIEW,  VIP,  NSN  AS  INTEGER  VARIABLES '' array  indices 
DEFINE  FORECAST. YEAR  AS  REAL  VARIABLE  "POI  annual  demand  over  12  mths 
DEFINE  TOT.QFD  AS  REAL  VARIABLE  "replen  QFD  and  (POI+replen)  QFD 
DEFINE  OVQD  AS  REAL,  1-DIMEMSIOMAL  ARRAY  "$  value  quarterly  demand 
"  T  *  2  *  SORT (2  *  PROCURE  COST  /  HOLDING  COST) 

DEFINE  ROP. MONTH  AS  REAL  VARIABLE  "the  no.  of  months  the  ROP  covers 
RESERVE  OVQD(*)  AS  MAX. NSN 

' '  ????  MOTE:  FOR  QFD  MIGHT  HAVE  A  PGC  MIXTURE  OF  VIP  &  NON  VIP  ITEMS 
' '  7??????7???7?  for  each  NSN  if  mixture  how  to  do  777777777777777 
FOR  MSN-1  TO  MAX. NSN 

ADD  VIP.ITEM(MSM)  TO  VIP  "no.  of  VIP  items  in  PGC 
IF  VIP  *  .FALSE  "i.e.  no  VIP  items  iii  PGC 

ROP. REVIEW  »  .DPM  *3  "  adjust  ROP  each  quarter 

ELSE 

ROP. REVIEW  *  .DPM  ''adjust  ROP  every  month 
ALWAYS 

UNTIL  TIME.V  >*  END. OF. SIMULATION 
DO 

FOR  MSN*1  TO  MAX. NSN  DO 
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CALL  SUN. FORECAST. OVER. TIME  (MSN, 12.0)  YIELDING  FORECAST . YEAR 
TOT . QFO-TRUNC . F ( FORECAST . YEAR/4 ) 

OVQD(MSM ) -COST* TOT . QFD 
IF  OVQD(NSN)  <>  Ml 

' 'THEM  OVQD  set  for  a  36  month  procurement  cycle 
PCP. MONTH (HSN) >36 
ELSE 

IF  (DVQO(NSN)  >  Ml)  AMO  (OVQD(NSN)  <-  M2) 

' 'THEM  between  Ml  &  M2  so  use  Wilson  Lot  Size  equation 
"  PROCURE  CYCLE  (MONTHS)-  EOQ  /  MONTHLY  DEMAND 

PCP.MONTH(NSN)>TRUNC.P((3*T)*{DVQD(NSN)**(-0.5) ) ) 

ELSE  ' 'greater  than  M2  or  use  6  month  PCP 
PCP.MONTH(NSN)>6 
ALWAYS 
ALWAYS 

' '  Calculate  Reorder  point  quantity  by  converting  time  to  units 

*'  ROP>  sum  CTREQ  over  PLT+ALT-«-( safety  level  *  AVE  monthly  demand) 

ROP. MONTH  >  (ALT. DAY  -t-  PLT.OAY(NSM)  )/.0PM 
CALL  SUM. FORECAST. OVER. TIME  ( MSN , ROP . MONTH )  YIELDING 

ROP.QTy(NSN) 

ROP.QTY(NSN)>ROP.QTY(NSN)  +  (SAFETY. MONTH ( MSN) * (TOT.QFD/3 ) ) 

-t-  OWRM(MSN) 

LOOP  "for  MSNs 
WAIT  ROP. REVIEW  DAYS 
LOOP' '  until  end  of  simulation 
END  "process  COMPUTE. ROP. PCP 


ROUTINE  CONFIDENCE. INTERVAL 

' 'This  routine  calculates  the  covariances  for  all  lags  and  the 
''  confidence  intervals. 

''  General  covariance  formula  for  the  kth  lag  (Ck): 

''  Ck>(l/N-k)  sum  (Xi-ave.X) (Xi+k  -  ave.X)  :sum  is  for  1  to  N-k 
' '  The  one  pass  formula 

' 'Ck>l/N-k  {xi*Xi+k  -  (k+N)avB.X**2  +  ave.X  [sumXl..k  +  sumXn-k-fl . .N] } 

'  '  where  /\  /\  /\ 

"  PRODUCT. MAT ( MSN, K)  [  SUN.K.ENDS(MSN,K)  ] 

DEFINE  MSN,  LAG  AS  IMTEPER  VARIABLES 
DEFINE  COVAR,  MEAN. VAR  AS  REAL  VARIABLES 
DEFINE  COVAR. SUM  AS  REAL,  1-OIMENSIOMAL  A^r 
RESERVE  COVAR.SUM(*)  AS  PGC.NUM 

!•****•***•*«  COVARIANCE  CALCULATIONS  AFTER  SAMPLING  COMPLETED  ****** 
FOR  NSN-1  TO  PGC.NUM  DO 
FOR  LAG-1  TO  K.LAG  DO 

''  Ck-l/N-k (Xi*Xi+k  -  (k+N)ave.X**2  +  ave.X{sumXl. .k  +  sumXn-k+1. .N}] 
COVAR-(l/(N.BLOCKS-LAG) )*  (PRODUCT.NAT(NSN,LAG) 

- ( ( LAG+N . B  LOCKS ) * ( AVE . COVAR . DATA ( MSN ) *  *  2 ) ) 

+  ( SUM . K . ENDS ( MSN , LAG ) *  AVE . COVAR . DATA ( MSN ) ) ) 

IF  LAG  <-  M. COVAR 

' '  THEM  add  to  total  covariance  for  first  M  lags 

COVAR . SUN ( MSN ) -COVAR . SUM ( MSN ) 
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>  (2  *((N.BLOCKS-LAG)/N. BLOCKS)  *  COVAR) 

ALWAYS 

IF  VAR. COVAR. DATA (MSN)  ME  0 

PRINT  1  LIME  WITH  MSN,  LAG,  COVAR,  COVAR . SUM ( MSN ) , 
COVAR  AAR.  COVAR.  DATA  (MSN)  THUS 

MSN  **  LAG  **  COVAR  **.*  COVAR. SUM  CORR  .**** 

ALWAYS 

LOOP  ' ' for  Lags 

PRINT  1  LIME  WITH  MSN,  COVAR. SUM ( MSN ) ,  VAR . COVAR . DATA ( NSN ) , 
AVE. COVAR. DATA (MSN)  THUS 

SUMMARY  MSN  **  COVAR/N2  **.*  VAR  **.*  MEAN  **,*** 
LOOP  '  ' for  MSMs 

PRINT  5  LIMES  THUS 


3sasassaaaaaasaaaaiaaasa«aaaaaiaasaaaisaaass3SS3S«a3BaaBS»a3ssss3asssss 

aaaaaaaaaaaaaaaaaa  EHD  OF  RUMs  PGC  RESULTS  aaaaaaaaaaaasaaaaaaaaa 


Baaaaaaaaaaaaaaaaaaaasaaaa 


■I***********  COMPIDENCE  INTERVAL  ********************** 

PRINT  2  LINES  WITH  M. COVAR,  COVAR. INTERVAL,  N. BLOCKS, 
(TIME.V-WARMUP.PERIOO)/360  THUS 

STATS  FOR  RUN;  M.LAGS  **  INTVL  **  BLOCKS  **  YRs  **.* 

MSN  MEAN  VAR  2COVAR/N  MEAN. VAR  C.I.95%  %C.I./MEAN 

FOR  NSN>1  TO  PGC.NUM  00 

MEAN.VARa  (VAR. COVAR. OAT A (NSN)  +  COVAR. SUM ( NSN ) )/N. BLOCKS 
IF  MEAN.VAR<0 
RETURN 
ALWAYS 

' '  confid.  interval  of  mean  >  mean  +/-  z.oS  *  stand,  dev.  of  mean 
CONF. INTV- 1.96  *  SQRT.F( MEAN. VAR)  "95%  confidence  interval 
PRINT  1  LINE  WITH  NSN,  AVE . COVAR . DATA ( NSN ) ,  VAR. COVAR. OATA( NSN ) , 
COVAR. SUM ( NSN ) ,  MEAN. VAR,  CONF.IMTV, 

100*CONF. INTV/AVE. COVAR. OATA( NSN)  THUS 
•*  **  **.*  **.*  **.*  •*  **,*• 


LOOP 

END  "ROUTINE  CONFIOENCE.  INTERVAL 


PROCESS  COVAR. SAMPLING 

' 'This  process  samples  and  updates  required  variables  to  estimate 
"  the  covariances  for  each  NSN  and  the  PGC.  (see  Gross  p418.) 

OEFINE  BLOCK,  LAG,  NSN,  ITEM,  HOLO.Xl,  POINT. X,  I,  NUM,  REQBO.OPT 
AS  INTEGER  VARIABLES 
OEFINE  SUM. PGC  AS  REAL  VARIABLES 

• <  SET  TRUE  FOR  REQUISITION,  FALSE  FOR  UNIT  BO  COVARIANCE  *** 

REQBO.OPT-. FALSE 

WAIT  WARMUP. PERIOO  OAYS 

' '  Insert  first  K  data  points  into  set  &  sum  values 
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FOR  ITEM  >  1  TO  K.LAG  DO 
WAIT  COVAR. INTERVAL  DAYS 
FOR  MSN  »  1  TO  PGC.NUM  DO 
CREATE  A  COVAR. MEMBER 
IF  NSH-PGC.NUM 
' ' THEM  do  PGC 
SUM.PGC>0 

FOR  NUM-l  TO  MAX.NSN  DO 

IF  REQBO.OPT  >  .TRUE  ' 'do  requisition  BOs 
ADO  REQ. BO (MUM, .TOTAL)  TO  SUM. PGC 
ELSE  ''do  unit  BO  for  cover  and  C.I. 

ADO  UNIT. BO (MUM, .TOTAL)  TO  SUM. PGC 
ALWAYS 
LOOP 

COVAR . DATA ( MSN ) »SUM . PGC 
ELSE  ' ' do  MSN 

COVAR. DATA (MSN)-  REQ. 80( MSN, . TOTAL) 

"*  PRINT  1  LINE  WITH  NSN,  TIME.V,  REQ. BO (MSN, .TOTAL)  THUS 

''*  MSN  **  TIME.V  **  REQ  BO  ** 

"  *  *  COVAR . DATA ( MSN ) -  CTREQ . MAT ( MSN , ITEM , . TOTAL ) 

ALWAYS 

DATA. POINT  >  COVAR. DAT A (MSN) 

FILE  COVAR. MEMBER  IN  COVAR. SET (MSN) 

'  '  Add  k  values  to  each  lag  to  handle  1st  k  items  not  in  sum 

FOR  LAGalTEM  TO  K.LAG 

SUN.  K.  ENDS  (NSN,  LAG)  >  SUM .  K .  ENDS  ( NSN  ,  LAG )  COVAR.  DATA  (NSN) 

LOOP 

LOOP 

•<******«*«  end:  INITIAL  SET  UP  *********************** 

IF  TRACE15*.TRUE 

FOR  MSN-1  TO  PGC.NUM 
FOR  LAG*1  to  K.LAG 

PRINT  1  LIME  WITH  NSN,  LAG,  SUM. K. ENDS (NSN, LAG)  THUS 
AFTER  INITIAL  NSN  LAG  **  SUN  OF  1ST  K  VALUES  ** 

ALWAYS 

''**•*****•  start:  MIDDLE  running  phase  of  program 
BLOCK>K.LAG-t-l 

UNTIL  TIME.V  -  END. OF. SIMULATION  DO 
"**  UMTIL  (BLOCK-N.BLOCKS+1)  DO 
WAIT  COVAR. INTERVAL  DAYS 
FOR  MSM-1  TO  PGC.NUM  DO 

REMOVE  FIRST  POINT. X  FROM  THE  COVAR. SET (NSN) 

HOLD . XI -DATA . POINT ( POINT . X ) 

IF  MSM-PGC.NUM 
' 'THEM  do  PGC 
SUM.PGC-0 

FOR  NUM-1  TO  MAX.NSN  DO 

IF  REQBO.OPT  -  .TRUE  ''do  requisition  BOs 
ADO  REQ. BO (NUN, .TOTAL)  TO  SUM. PGC 
ELSE  ''do  unit  BO  for  cover  and  C.I. 

ADD  UNIT. BO(NUM,. TOTAL)  TO  SUN. PGC 
ALWAYS 
LOOP 

COVAR . DATA ( NSN ) -SUN . PGC 
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ELSE  ' 'do  MSN 

COVAR. DATA (MSN)-  REQ.BO(HSM, .TOTAL) 

"*  PRINT  1  LINE  WITH  NSN, TIME. V,REQ.BO(NSN, .TOTAL) , BLOCK 

THUS 

NSN  **  TIME.V  **  REQ  BO  **  BLOCK  ** 

ALWAYS 

DATA. POINT ( POINT. X)  >  COVAR. DATA (NSN) 

FILE  POINT. X  IN  COVAR. SET( NSN) 

LAG-1 

FOR  EACH  ITEM  IN  THE  COVAR.SET(NSN)  DO 

ADD  (HOLD. XI  *  DATA. POINT ( ITEM) )  TO  PRODUCT . MAT ( NSN , LAG ) 

ADD  1  TO  LAG 
LOOP 

IF  TRACEIS-.TRUE 
LAG-1 

FOR  EACH  ITEM  IN  COVAR. SET (NSN)  DO 

PRINT  1  LINE  WITH  MSN,  LAG,  HOLD. XI,  DATA. POINT ( ITEM) , 
PRODUCT. MAT (NSN, LAG)  THUS 

NSN  **  LAG  **  XI  **  X.LAG  **  CUM  PROD  **.* 

ADD  1  TO  LAG 
LOOP 
ALWAYS 

LOOP  "next  NSN 
BLOCK-BLOCK-t-1 
LOOP  "until 

••  A*********  end:  MIDDLE  running  phase  ******************* 

*********  Add  i-k+1  to  n  values 
FOR  NSN-l  TO  PGC.MUM  DO 
I-l 

FOR  EACH  ITEM  IN  THE  COVAR. SET (NSN)  IN  REVERSE  ORDER  DO 
FOR  LAG-I  TO  K.LAG  DO 

ADO  DATA. POINT( ITEM)  TO  SUM. K. ENDS (NSN, LAG) 

LOOP 

ADD  1  TO  I 
LOOP 
LOOP 

IF  TRACEIS-.TRUE 
FOR  NSN-l  TO  PGC.NUN 
FOR  LAG-1  to  K.LAG 

PRINT  1  LINE  WITH  NSN,  LAG,  SUN. K. ENDS (NSN, LAG)  THUS 
AFTER  FINAL  NSN  LAG  **  SUN  OF  LAST  K  VALUES  ** 

ALWAYS 

'•  ***«**••*«*  start:  FINAL  (Xi,Xi-i'k)  product  for  remaining  K.lag  items 
FOR  NSN-l  TO  PGC.NUN  DO 
FOR  I-l  TO  K. LAG-1  DO 

REMOVE  FIRST  POINT. X  FROM. THE  COVAR. SET (NSN) 

BOLD . XI -DATA . POINT ( POINT . X ) 

LAG-1 

FOR  EACH  ITEM  IN  THE  COVAR. SET (MSN)  DO 

ADD  (HOLD. XI  *  DATA. POINT ( ITEM) )  TO  PRODUCT . MAT ( NSN , LAG ) 

ADO  1  TO  LAG 
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LOOP 

IF  TRACE15-.TRUE 
LAG-1 

FOR  EACH  ITEM  IN  COVAR. SET(MSN)  DO 

PRINT  1  LINE  WITH  NSN,  LAG,  HOLD. XI,  DATA. POINT ( ITEM) , 
PRODUCT. MAT (NSN, LAG)  THUS 

END  NSN  **  LAG  **  XI  **  X.LAG  **  CUM  PROD  ** .* 

ADD  1  TO  LAG 
LOOP 
ALWAYS 
LOOP 

LOOP  ' 'do  next  NSN 

■  •************************************tk******** 

IF  ( AVE. COVAR. DATA (PGC.NUM)  <>  0)  AMD  (K.LAG<M. BLOCKS) 

''THEN  BO  condition  occurred  &  have  enough  samples  to  calculate  C.I. 
CALL  CONFIDENCE. INTERVAL 
ALWAYS 

END  ''Process  Covar .Sampling 


PROCESS  DEMAND. GENERATOR 

' 'This  routine  generates  demands  and  reguistions  for  a  given  NSN 

DEFINE  REQ. SIZE. NOW  AS  INTEGER  VARIABLES 

DEFINE  DEMAND. COUNT,  TIME. OF. REQ  AS  REAL  VARIABLES. 

' '  USE  UNIT  6  FOR  OUTPUT 

REQ . S I ZE . NOW-INT . F ( REQUIS ITION . RATIO. F* ARS ( NSN . D) } 

WAIT  DEMAND. INTERVAL  DAYS 

UNTIL  TIME.V  >  END. OF. SIMULATION  DO 

"  PRINT  1  LINE  WITH  NSN. D, TIME. V,OOR(NSN. D) , REQ. SIZE(NSN.O, .TOTAL)  THUS 
"  MSN.D  *  TIME.V  **.*  DDR  **.*********  req  SIZE  ** 

IF  (POISSON. OPT-. TRUE) 

' '  THEM  only  simulate  if  both  monthly  and  daily  demand  needed 
SIM.ODR(NSN.O) -POISSON. F(DDR(NSM.D) ,1) 

ELSE 

SIM.ODR(MSM.D)-  DOR(MSN.D)  "either  CTREQ  or  MAPE  adjusted 

ALWAYS 

DEMAND. COUNT-DEMAND. COUNT  4-  SZN.ODR(MSN.D) 

WHILE  ( (DEMAND. COUNT  >-  REQ. SIZE. MOW)  AMD  ( DOREQ. OPT-. TRUE ) ) 

DO  ''loop  for  requisitions  and  recruit  center  info. 

REQ. SZZE(NSM. D, .TOTAL)-REQ. SIZE. NOW  ' 

REQ. INTERVAL ( NSN. D, .TOTAL) -TIME.V  -  TIME. OF. REQ 
TINS . OF . REQ-TIMS . V 

IF  (REQ. SIZE. ROW  >-  RECRUIT. SIZE. CUTOFF (NSN. D) ) 

' '  THEN  update  requisition  and  unit  demands  for  recruit  centers 
REQ . INTERVAL ( NSN . D , . RECRUIT ) -REQ . INTERVAL ( NSN . D , . TOTAL ) 
REQ.  SIZE  (.MSN.D, .  RECRUIT ) -REQ.  S I  ZE(  NSN.  D,  .TOTAL) 

ALWAYS 

IF  TRACEl-.TRUE 

IF  (REQ. SIZE. NOW  >-  RECRUIT. SIZE. CUTOF7(MSN. D) ) 

PRINT  1  LINE  THUS 

— —  A  RECRUIT  REQUISITION  ABOVE  CUTOFF  — — 
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ALWAYS 

PRIHT  1  LINE  WITH  NSN.O,  TINB.V,  DEMAND . COUNT , 

REQ.SIZB(NSN.D, .TOTAL) ,  REQ. INTERVAL (NSN.D, .TOTAL)  THUS 
NSN  •  TIME  **  DEM  COUNT  **.*  REQ. SIZE  **  REQ.INTRVL  **.* 

ALWAYS 

CALL  REQ. TO. INVENTORY  GIVEN  NSN.D 

DEMAND . COUNT«DEMAND . COUNT-REQ . S I ZE ( NSN . D , . TOTAL ) 

REQ. SIZE. NOW-TRUNC.F(REQUISITION. RATIO. F*ARS(NSN.O)  *  .9999) 
LOOP  ' 'while 
IF  (DOREQ. OPT-. FALSE) 

' 'THEN  e^eh  requisition  equals  daily  demand 
REQ.SIZE(NSN.D, .TOTAL) -SIM. DDR(NSN.D) 

IF  TRACEl-.TRUE 

PRINT  1  LINE  WITH  NSN.O,  TIME.V,  REQ. SIZE(NSN.O, .TOTAL) , 
REQ . INTERVAL (NSN.O,. TOTAL )  THUS 
NOREQ  NSN  *  DAY  **  DDR/SIZE  **.*  REQ.INT  **.* 

ALWAYS 

CALL  REQ. TO. INVENTORY  GIVEN  NSN.O 

ALWAYS 

WAIT  DEMAND. INTERVAL  DAYS 
LOOP  ' 'until 

END  ' 'process  DEMAND . GENERATOR 


ROUTINE  DISTRIBUTION. DATA 

' 'This  routine  intialises  random  variables  distributions  for  the 
"  PLT. DAY. DELAY  (CLIN  report),  REQUISITION. RATIO. F(USIMS  <5 
*'  requisition  distribution),  and  DEMAND. MAPE.F  from  Orchowsky's  POI 
' '  report  pq.  6 

USE  THE  BUFFER  FOR  OUTPUT 

' '  the  PLT  distribution  gives  the  number  of  days  early  or  late  of  a 
*'  order.  Format  is  probability  then  value  (i.e.  F(x),  x) 


••*****«******  PLT  CLIN  DISTRIBUTION  ******************************* 
WRITE  AS  /,"  0.0  -20  0.10  0  0.7352  30  " 

WRITE  AS  "  0.8116  90  0.8757  180  1.0000  360  *  " 

'  '  NOT  USED  NOW 


PLT  ANALYSIS  REPORT  DISTRIBUTION  ********************* 


' 'WRITE 

AS 

0.0 

-360 

0.02 

-330 

0.02 

-300 

0.02 

-270 

'  'WRITE 

AS 

m 

0.04 

-240 

0.05 

-210 

0-.07 

-180 

0.09 

-150 

’  'WRITE 

AS 

m 

0.11 

-120 

0.15 

-90 

0.21 

-60 

0.31 

-30 

• 'WRITE 

AS 

H 

0.49 

0 

0.62 

30 

0.73 

60 

0.79 

90 

'  'WRITE 

AS 

N 

0.86 

120 

0.90 

150 

0.91 

180 

0.92 

210 

'  'WRITE 

AS 

m 

0.94 

240 

0.96 

270 

0.96 

300 

0.97 

330 

'  'WRITE 

AS 

m 

1.00 

360 

*  " 

READ  PLT. DAY. DELAY. F  USING  THE  BUFFER 

''  1  +/-  MAPE  CUN  probability  density  function  F(x),  x 

WRITE  AS  /,"  0.0  0.0  .00000001  .01  0.0433  0.26  " 

WRITE  AS  "  0.1371  0.51  .2673  0.76  0.2970  1.00  " 
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WRITE  AS  ”  0.3443  1.24  .5511  1.49  0.7030  1.74  ” 

WRITE  AS  "  0.7690  1.99  .9590  11.0  1.0000  13.0  *  " 

READ  OEMAMD.MAPE.F  USING  THE  BUFFER 

''  Cuinmulative  probability  function  F(X),  X 

"  random  variable  REQUISTION. RATIO. F  from  USIMS  DPSC  «/  ARS  >  5  pg.  W-8 
WRITE  AS  /,  ”  0.0  0.0  .169  .1  .307  .2  .482  .4  .612  .6  .688  .8  " 

WRITE  AS  "  .753  1  .805  1.25  " 

WRITE  AS  ”  .844  1.5  .872  1.75  .893  2  .922  2.5  .941  3  .963  4  .974 

5  " 

WRITE  AS  "  .98  6  .988  8  .992  10  1.0  33.9125  *  ” 

READ  REQUISITION. RATIO. F  USING  THE  BUFFER 

USE  UNIT  1  FOR  OUTPUT  "switch  back  to  output  file 

IF  TRACE14a.TRUE 

"  THEN  (can't  set  trace  so  must  disable  directly 
DEFINE  I  AS  INTEGER  VARIABLE 
*'  send  to  printer 

’ ’  USE  UNIT  2  FOR  OUTPUT 

DEFINE  HOLO.PLT  AS  REAL  VARIABLES 
FIRST. DELIVERYalOO 
FOR  I>  1  TO  1000  DO 

HOLD.PLT>  FIRST. DELIVERY  *  PLT.OPT  *  PLT . DAY . DELAY . F 
PRINT  1  LINE  WITH  I,  HOLO.PLT  THUS 
HUM  **  PLT  DELAY  ** 

IF  HOLD.PLT<10 

' '  THEN  order  will  arrive  before  placed  so  set  to  10  days 
SIM.PLT.OAY-10 
ELSE 

SIM.PLT.DAT  >  HOLO.PLT 
ALWAYS 
LOOP 

PRINT  1  LINE  WITH  AVE.SIN.PLT  THUS 
AVERAGE  SIM  PLT  ** .** 

PRINT  2  LINES  THUS 

CUMMULATIVE  DISTRIBUTION  FOR  THE  MAPE  DEMAND  FUNCTION 
INDEX  VALUE  CUM  PROB  % 

FOR  EACH  RANDOM. E  IN  PLT . DAY . DELAY . F , 

PRINT  1  LINE  WITH  RVALUE. A (RANDOM. E) ,  100*PROB. A(RAMDOM.E)  THUS 

** , **« 

STOP 

ALWAYS 

END  "routine  DISTRIBUTION. DATA 


PROCESS  GET. PLOT. DATA 

''this  process  gets  or  calculates  several  plotted  variables  for 
' '  dynamic  net  stock  plot  &  static  plotted  histogram  graphics 
DEFINE  MSN,  SUM. HOLD  AS  INTEGER  VARIABLES 
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WAIT  WARMUP. PERIOD  DAYS 
UNTIL  TIMB.V  >-  END. OF. SIMULATION  DO 
WAIT  PLOT. INTERVAL  DAYS 
<•  ******  calculating  NET. STOCK  ********* 

IF  TRACEIO  -  .TRUE 

''THEN  do  the  1st  3  NSNs  plot  o£  their  net  stock 
FOR  NSN-1  TO  3 

NET. STOCK (NSN)-(STOCK(NSN)  -  UNIT. BO(NSN, .TOTAL) )/1000 

ALWAYS 

' '  Do  PGC.NET. STOCK  always  for  histogram 

SUM.HOLD-0 

FOR  NSN-1  TO  MAX.NSN 
SUM.HOLOa  SUM. HOLD 

(STOCK(MSM)  -  UNIT. BO(NSM, .TOTAL) ) 

PGC.NET. STOCK  -  SUM.HOLO/PLOT. YSCALE 
LOOP 

END  "process  GET . PLOT . DATA 


ROUTINE  GRAPH. INITIALIZE 

' 'This  routine  initializes  graphics  at  the  start  of  program:  shows 
''  the  pie  charts,  determine  histogram  intervals  (.5  of  safety  level) 
' '  and  displays  the  dynamic  traces 
DEFINE  DEVICE. ID  AS  POINTER  VARIABLE 
DEFINE  MSN  AS  INTEGER  VARIABLE 

t .  *******  dynamic  graphics  initialization  *********** 

> )  «****««  PI2  CHARTS  ************************* 

IF  TRACE13-.TRUE 

SHOW  EBO.PIE  WITH  "EBOPIE.GRF" 

SHOW  DEMAND. PIE  WITH  "DEMPIE.GRF” 

RESERVE  EBO.PIE(*),  DEMAND. PIE  (*)  AS  3 
ALWAYS 


**********  HISTOGRAMS  ********** 

FOR  NSN  «  1  TO  MAX.NSN  DO 

PGC.SL. STOCK  -  PGC.SL. STOCK  + 

(AVE. FORECAST (NSN)*  SAFETY.NONTH(NSN) )  +  OWRM(NSN) 

LOOP 

IF  TRACES*. TRUE 

''then  turn  on  histogram  prints  at  end 

''histogram  is  3  SL  Intervals  long,  1  negitive,  2  positive 

HIS. BO. 3«(PGC.SL.STOCK/2)/PLOT. YSCALE  "intvl*.5  SL,  scale  stock 
HIS. BO. 1*  -(2  *  HIS. BO. 3)  "i.e.  -PGC.SL. STOCK 
HIS.B0.2*  6  *  HIS. BO. 3  ".i.e.  *  2  *  PGC.SL. STOCK 

SHOW  HISTOGRAM  HIST. PGC. PLOT  WITH  "HISTPGC.GRF" 

SHOW  HISTOGRAM  HIST. EBO. PLOT  (1) ,HIST.EBO.PLOT( 2) , 

HIST.EBO.PLOT(3) 

WITH  "EBOHIST.GRF" 
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ALWAYS 


••*«****  DYNAMIC  TRACE  OP  NET  STOCK  LEVELS  FOR  3  NSNs  OR  PGC  ******** 
IF  (TRACE10>.TRUE)  OR  (TRACE20-.TRUE) 

' 'THEN 

''set  vertual  terminal 

CALL  DEVINIT.RCVT, GRAPHIC")  YIELDING  DEVICE.  ID 

OPEN  7  FOR  INPUT,  DEVICE-DEVICE. ID 

OPEN  8  FOR  OUTPUT,  DEVICE-DEVICE. ID 

USE  8  FOR  GRAPHIC  OUTPUT 

IF  TRACEIO-.TRUE 

"THEN  display  1st  3  NSNs 

DISPLAY  NET.STOCK(l),  MET . STOCK ( 2 ) ,  MET.STOCK(3) 

WITH  "NETSTOCK.GRF" 

ELSE  ' 'display  PGC  net  stock 
DISPLAY  PGC. NET. STOCK  WITH  "PGCSTOCK.GRF” 

LET  VXFORM.V  -  5 

CALL  SETWORLD.R  (0,79,0,  23) 

CALL  MXRESET.R  (0) 

CALL  MXLATE.R  (40,0)  ' 'X,Y  coordinates  position 
CALL  TEXTAMGLE.R  (0)  "angle  of  the  text  from  0  to  3600 
WRITE  PLOT.YSCALE  AS  "STOCK  SCALING  FACTOR  -”,  D(9,2),  /  USING  8 
CALL  GUPDATE.R 
ALWAYS 
ALWAYS 

END  "GRAPH. INITIALIZE 


ROUTINE  INPUT .NPTOll . DATA 

' 'This  routine  Reads  management  policy  table  11  and  gets  the  minimum 
' '  procurement  cycle,  PGC  delivery  percents  for  all  delivery 
'*  increments,  1  of  4  methods  of  delivery,  PGC  first  delivery  in  days. 

DEFINE  TEST. TEXT,  TEST2  AS  TEXT  VARIABLE 
DEFINE  I,  PGC. MUM,  MONTH  AS  INTEGER  VARIABLE 
DEFINE  TEST. EOF  AS  ALPHA  VARIABLE 
DEFINE  PGC. PERCENT  AS  REAL  VARIABLE 

USE  UNIT  11  FOR  INPUT 
' '  USE  6  FOR  OUTPUT 
EOF.V-1 

' '  ****  PHASED  DELIVERY  SET  UP  ******** 

MAX.DELIVERIES-12 

RESERVE  DELIVERY. PERCENT(*)  AS  MAX. DELIVERIES 

UNTIL  PGC.NUM  -  TARGET. PGC  DO  "loop  to  find  PGC  target  number 
TEST. TEXT- "NEW  PGC" 

UNTIL  TEST.TEXT«"ROUP"  DO  "  loop  to  find  GROUP  label 
START  NEW  INPUT  RECORD 
READ  TEST i EOF  ' ' 

IF  ((TEST.E0FO26)  AND  (EOF.V<>2)) 
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• 'them  look  for  GROUP  in  file  to  find  PGC  HUM 
READ  TEST. TEXT 

ELSE  *'  at  end  of  file  without  finding  PGC's  MPT  Oil  file 
WRITE  AS  "Itt  ERROR:  TARGET  PGC  MPTOll  PILE  NOT  FOUND  ", 
/  USING  6 
STOP 

REGARDLESS 

LOOP 

' '  have  found  the  GROUP  label  now  read  PGC. MUM 
START  MEW  INPUT  RECORD 

READ  PGC. MUM,  I,  MIN. PC,  TEST. TEXT,  TEST2 
LOOP 

FOR  MONTH  >  1  TO  MAX . DELIVERIES 
READ  DELIVERY. PERCENT (MONTH) 

M0MTH>1 

WHILE  ((MOMTHo  MAX. DELIVERIES)  AMD  (DEL I VERY. PERCENT (MONTH)  >  0)) 
DO  ''no.  incremental  deliveries 

DELIVERY. PERCENT (MONTH)  »  DELI VERY. PERCENT (MONTH) /I 0  ' 'make  a  % 
PGC. PERCENT  »  PGC. PERCENT  +  DEL I VERY. PERCENT (MONTH) 

MOMTH-MOMTH  +  1 
LOOP 

MAX.DBLIVERIES^MOMTH  -  1 

IF  (PGC. PERCENT  <  99.99)  OR  (PGC. PERCENT  >  100.01) 

'  'THEN 

WRITE  AS  "fit  ERROR:  PGC  DELIVERY  PERCENT  NOT  EQUAL  TO  100", 
/  USING  6 
STOP 

REGARDLESS 

START  NEW  INPUT  RECORD 

FOR  I>1  TO  3 
READ  TEST2 
READ  DELIVERY. OPT 
FOR  I-l  TO  4 
READ  TEST2 
READ  FIRST. DELIVERY 
FOR  I-l  TO  3 
READ  TEST2 

READ  X. PERCENT,  Z. PERCENT 
LINES. V-0 

PRINT  10  LINES  WITH  RUN. ID  THUS 

ttttitittttlltlitilititlitttttitittlittititititttttlittittitttittfitll 

tttttttititi  THE  DETAIL  TRACE  OUTPUT  REPORT  titliiif ttilf f tit f 

tfliltlillffliiiifItiKFILE:  DLAOUT.OAT)t#tt|«tt#tl*ltt*#iitltti«ittl« 

(ID  NUMBER  OF  RUM  "") 


INPUT  DATA 


PRINT  4  LIMES  WITH  PGC.NUM,  DEL I VERY. OPT,  FIRST. DELIVERY,  X. PERCENT, 
Z . PERCENT ,  MIN . PC  THUS 
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MANAGEMENT  POLICY  TABLE  11  PILE  INPUT  «■-««»■««■» 
PGC  **  METHOD  OF  DELIVERY  **  PGC  FIRST  DELIVERY  DAYS  ** 

X  *  **%  Z  »  **%  MINIMUM  PROC  CYCLE  ** 

FOR  MONTH  >  1  TO  MAX. DELIVERIES  DO 

PRINT  1  LINE  WITH  MONTH,  DELIVERY. PERCENT (MONTH)  THUS 
MONTH  »  **  DELIVERY. PERCENT  ** 

LOOP 

CLOSE  UNIT  11 

END  "routine  INPUT. MPTOll .DATA 


ROUTINE  INPUT. SSCF. DATA 

' 'This  routine  reads  the  required  input  data  to  run  the  simulation 
'  '  original  captured  from  the  Special  Supply  Control  File  Report  via 
'  '  a  SIMSCRIPT  program  in  directory  OLADATA.  The  routine  finds  the 
''  desired  PGC  number,  and  reads  in  the  data  into  the  approriate 
'  '  variables.  If  the  PGC  number  is  not  found  the  program  prints 
' '  error  message  and  stops 

DEFINE  TEST. EOF  AS  ALPHA  VARIABLE 

DEFINE  COL,  MSN  AS  INTEGER  VARIABLE 

DEFINE  TEST. TEXT  AS  TEXT  VARIABLE 

USE  UNIT  4  FOR  INPUT  "C : \SIM\DLA\SSCFSIM. DAT/MOD 

EOF.V-1 

'*  *******  Find  target  PGC's  beginning  of  data  input  **** 


UNTIL  PGC. NO  *  TARGET. PGC  DO  "loop  to  find  PGC  target  number 
TEST. TEXT= "NEW  PGC" 

UNTIL  TEST. TEXT- •  ROC. GR. CD"  DO  "  loop  to  find  PROC. GR. CD  label 
START  NEW  INPUT  RECORD 
READ  TEST. EOF  " 

IF  ( (TEST.E0FO26)  AND  (EOF.V<>2)) 

"THEN  look  for  GROUP  in  file  to  find  PGC  NUM 
READ  TEST. TEXT 

ELSE  ''  at  end  of  file  without  finding  PGC  in  MPT  Oil  file 
WRITE  AS  "ttt  ERROR:  TARGET  PGC  NOT  IN  SSCF  REPORT  FILE", 
/  USING  6 
STOP 

REGARDLESS 

LOOP 

'  have  found  the  GROUP  label  now  read  PGC. MO 
READ  PGC. NO,  TEST. TEXT,  MAX. MSN 
'  PRINT  1  LINE  WITH  PGC. NO,  TEST. TEXT,  MAX.NSN  THUS 
'  PGC  NO.  **  TEXT  *******  MAX.NSN  ** 

LOOP 

I  •****•«*  Start  reading  PGC  related  data  **************** 

CREATE  EVERY  MSN . ATTRIBUTES ( MAX . NSN ) 
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READ  PGC.NAME  AS  /,/,B  1,T  20 
READ  FSC,  ICC,  ALT. DAY,  COST,  MAX. MONTH 
"AS  /,/,B  1,T  17,  B  22,1  7,  B  29, T  3,  B  34,1  6,  B  41,  0(10,2),  B  57,  I  5 

SKIP  2  RECORDS 

«  I  *******  Read  MSN  specific  data  *************************** 

FOR  MSN  -  1  TO  MAX. MSN 

READ  NSN,  NSN.NO(NSN),  PLT . DAY ( NSN } ,  VIP. ITEM(NSM) , 

SAFETY . MONTH ( NSN ) ,  QFD ( NSN ) 

SKIP  3  RECORDS 

FOR  NSN  «1  TO  MAX. NSN 

READ  NSN,  MAD(NSN),  OWRM(NSN),  ALPHA(HSN),  ARS(NSN), 

PER . RTC . DEMAND ( NSN ) 

IF  ICC-"P" 

• 'THEN 

***************  Read  CST  requirements  matrix  ****************** 

''for  calculating  order. QTY,  the  CTREQ.MAT  has  to  have  enough 
' '  future  months  of  data  for  the  maximum  of  PLT,  ALT,  &  PCP 
CTREQ. PERIOD- 12  ''no.  of  months  before  CTREQ  mat  is  shifted  &  updated 
MAX. CTREQ.OIM-CTREQ. PERIOD  +  24  +  6  36  "PLT- 24,  ALT- 6,  PCP- 3 6 

RESERVE  CTREQ. MAT(*,*,*)  AS  MAX. MSN  BY  (MAX . CTREQ . DIM)  BY  1  ''or  3 

FOR  NSN  -  1  TO  MAX. NSN  DO 
SKIP  3  RECORDS 
FOR  COL-  1  TO  MAX. MONTH 

READ  CTREQ . MAT ( NSN , COL , . TOTAL ) 

LOOP 

ALWAYS 

CLOSE  UNIT  4 

END  "routine  INPUT . SSCF . DATA 


ROUTINE  INPUT. VSL. DATA 

''This  routine  is  called  if  user  specifies  the  VSL  option  as  true 
'*  question  (4).  It  searches  the  "VSL. DAT”  file  for  the  PGC  number 
*'  and  overrides  the  fix  safety  level  values  from  the  SSCF  with  the 
' '  VSL  values  in  months  in  the  file 

DEFINE  TEST. EOF  AS  ALPHA  VARIABLE 
DEFINE  TEST. TEXT  AS  TEXT  VARIABLE 
DEFINE  MSN,  I,  PGC.NUM  AS  INTEGER  VARIABLE 

OPEN  UNIT  12  FOR  INPUT,  FILE  NAME  IS  "C:\SIM\DLA\VSL.0AT" 

USE  UNIT  12  FOR  INPUT 
EOF.V-1 

UNTIL  PGC. MUM  -  TARGET. PGC  DO  "loop  to  find  PGC  target  number 
TEST.TEXT-"NEM  PGC" 

UNTIL  TEST. TEXT- "PGC"  DO  "  loop  to  find  GROUP  label 
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START  NEW  INPUT  RECORD 
READ  TEST. EOF  * ' 

IF  ( (TEST.E0FO26)  AND  {EOF.V<>2)) 

"THEN  look  £or  PGC  in  file  to  find  PGC  NUM 
READ  TEST. TEXT 

ELSE  "  at  end  of  file  without  finding  PGC's  MPT  Oil  file 

WRITE  AS  "ttt  ERROR ‘.TARGET  PGC  IN  VSL.DAT  FILE  NOT  FOUND  ", 
/  USING  6 
STOP 

REGARDLESS 

LOOP 

'  '  have  found  the  PGC  label  now  read  PGC. NUM 
READ  PGC. NUM 
LOOP 

SKIP  2  INPUT  RECORDS 
FOR  NSN  »  1  TO  MAX.NSN 

READ  I,  SAFETY. MONTH ( NSN ) ,  TEST. TEXT 

I-O 

CLOSE  UNIT  12 

END  "routine  INPUT . VSL . DATA 


ROUTINE  LAYINTO. MATRIX  GIVEN  ITEM 

'  '  This  routine  develops  the  X,  Y,  Z  amounts  of  delivery  for  all  delivery 
"  months.  Example:  It  takes  the  Z  item  target  of  100%  in  6th  month 
"  and  the  total  percent  SUM  of  Z  items  for  the  PGC  (e.g.,  20%).  It 
' '  then  makes  sure  those  targets  times  the  SUM  will  not  exceed  the 
"  PGC  DELIVERY . PERCENT  (e.g.,  15%)  by  month.  Since  it  does  exceed  the 
"  PGC. DELIVERY. PERCENT  (20>1S),  it  takes  the  overflow  (5%)  and  moves 
"  it  into  the  previous  month  (the  Sth  month).  The  5%  now  becomes  the 
"  target  for  the  Sth  month  and  the  cycle  repeats. 

DEFINE  ITEM  AS  INTEGER  VARIABLE  "whether  an  X,  Y,  or  Z  items  vector 
DEFINE  DELIVER  AS  REAL  VARIABLE  "  the  percent  delivered  this  month 
DEFINE  OVERFLOW  AS  REAL  VARIABLE  "percent  that  overflow  to  next  month 
DEFINE  MONTH  AS  INTEGER  VARIABLE 

DEFINE  ITEM. SUM  AS  REAL  VARIABLE  "  the  %  of  the  X,Y,  or  Z  in  PGC 

ITEM. SUM-XYZ . SUM( ITEM) 

MONTH-MAX . DELIVERIES 

WHILE  (ITEM. SUN  >  0)  AMD  (MONTH  >  0)  DO 

DELIVER-  XYZ. SUM (ITEM)  *  (XYZ.MATRIX( ITEM,MONTR)/100) 

DELIVERY. PERCENT (MONTH) -DELIVERY. PERCENT (MONTH)  -  DELIVER 
IF  (DELIVERY. PERCENT (MONTH)  >-  0)  OR  ( MONTH- 1) 

"THEM  this  months  delivered  can  fit  fi  no  overflow  to  next  month 
XyZ.MATRlX( ITEM, MONTH)-  DELIVER 
ITEM. SUM- ITEM. SUM  -  DELIVER 

ELSE  "can  fit  all  in  this  month  so  overflow  to  next  month 
' '  enter  deliver  -  overflow  into  XYZ  matrix 
OVERFLOW  -  ABS. F( DELIVERY. PERCENT ( MONTH ) ) 

XYZ. MATRIX (ITEM, MONTH)-  DELIVER  -  OVERFLOW 
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ITEM. SUM-ITEM. SUN  -  (DELIVER  -  OVERFLOW) 
ITZ.NATRIX(ITEM,MOMTH-l)-  XYZ. MATRIX (ITEM, MONTH- 1)  + 

( 100*OVERFLOW/Xyz . SUM( ITEM) ) 

DELIVERY. PERCENT (MONTH)  -  0 
ALWAYS 

IF  TRACE22-.TRUE 

PRINT  1  LINE  WITH  ITEM,  MONTH,  DELIVER,  ITEM. SUM,  OVERFLOW 
THUS 

LAYIN  ITEM  **  MONTH  **  DELIVER  **.*  ITEM  SUM  **.*  OVFL  ** 
ALWAYS 

MONTH»MOMTH-l 

LOOP 

END  "LAYINTO. MATRIX 


ROUTINE  MATRIX . DELIVERY . SCHEDULE 

' 'This  routine  lays  in  the  different  X,  Y,  &  Z  percent  deliveries  per 
*'  month  vector  into  the  XYZ. MATRIX  for  each  of  the  3  delivery 
' '  methods.  Method  1  does  not  use  the  X,y,  Z  percents  but  a  sort 
''  in  routine  METHODl . SCHEDULE 

DEFINE  ROW,  X,  Y,  Z,  MONTH  AS  INTEGER  VARIABLES 

RESERVE  XyZ.MATRIX(*,*)  AS  3  BY  MAX. DELIVERIES 

X-1 

Y-2 

Z-3 

XYZ. MATRIX(Z, MAX. DELIVERIES)  >  100 
SELECT  CASE  DELIVERY. OPT 

CASE  1  ' '  *******  DELIVERY  METHOD  1  ****************** 

CALL  METHODl. SCHEDULE 

CASE  2  ' '  *******  DELIVERY  METHOD  2  ****************** 

CALL  LATINTO.MATRIX(Z) 

''  fill  in  Y  percents  over  last  1/2  of  months  if  odd  no.  round  up 

'*  i.e.,  put  Y's  in  partial  month 

FOR  MONTH  BACK  FROM  MAX. DELIVERIES  TO 

TRUNC.F( (MAX. DELIVERIES/2)  +  1) 

XYZ.NATRIX(Y, MONTH)  *(100/ 

(NAX.0ELlVERIES-TRUNC.F(MAX.0ELIVERlES/2) ) ) 
CALL  LAT1NT0.NATR1X(Y} 

' '  make  X  item  vector  equal  to  remaining  PGC  delivery  percents 

FOR  MONTH  *  1  TO  MAX. DELIVERIES  UNLESS  XyZ.SUN(X)*0  DO 
XYZ . MATRIX ( X , MONTH ) -DELIVERY . PERCENT ( MONTH ) 

LOOP 

CASE  3  ' '  *******  delivery  METHOD  3  ****************** 

'  '  lay  in  Z  in  equal  percents  over  only  the  last  2/3s  of  schedule 

' '  for  odd  delivery  months  round  up 

FOR  MONTH  BACK  FROM  MAX . DELIVERIES  TO 

TRUNC.F(MAX.OELIVERIES/3  +  1) 

XYZ. NATRIX(Z, MONTH)  -  (100/ 
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(MAX. DELIVERIES-  TRURC. F(MAX. DELIVERIES/3) ) ) 

CALL  LAyiRTO.MATRIX(Z) 

' '  make  X  &  Y  item  vector  equal  to  remaining  PGC  delivery  percents 

FOR  ROW  >  X  TO  Y 

FOR  MONTH  -  1  TO  MAX. DELIVERIES 

XYZ . MATRl X ( ROW, MONTH ) »XYZ . SUM ( ROW ) *  DELIVERY . PERCENT ( MONTH ) 
/{lOO  -  XYZ.SUM(Z))  *'%  of  order  remaining 

CASE  4  ' '  *******  DELIVERY  METHOD  4  ****************** 

CALL  LAYIMTO.MATRIX(Z) 

'  '  make  X  &  Y  item  vector  equal  to  remaining  PGC  delivery  percents 

FOR  ROW  a  X  TO  Y 

FOR  MONTH  *  1  TO  MAX. DELIVERIES 

XYZ .MATRIX ( ROW, MONTH) «XYZ . SUM( ROW) *DELIVERY . PERCENT ( MONTH ) 
/(lOO  -  XYZ.SUM(Z))  '*%  of  order  remaining 

ENDSELECT 

••  ***  calculate  item  type  percents  (X,Y,  or  Z)  after  lay  in  rebalancing 
IF  TRACE22*.TRUE 

PRINT  1  LINE  THUS 

TRACE  WITH  PERCENT  OF  PGC  DELIVERED  EACH  MONTH 
CALL  PRINT. DELI VERY. MATRIX 
ALWAYS 

FOR  ROW  a  1  TO  3  DO 
IF  XYZ.StIM(ROW)«0 

''THEN  fix  SO  no  divide  by  zero  errors 
XYZ . SUM( ROW) » . MIHVAL 
ALWAYS 
LOOP 

FOR  ROW  «  1  TO  3 

FOR  MONTH  «  1  TO  MAX. DELIVERIES 

XYZ. MATRIX (ROW, MONTH)  »  XyZ.MATRIX(ROW,MONTH)/XYZ.SUM(ROW) 

CALL  PRINT. DEL I VERY. MATRIX 

END  "routine  MATRIX. DEL I VERY. SCHEDULE 


ROUTINE  METHODl . SCHEDULE 

"For  method  1,  the  delivery  is  made  in  a  clump,  not  spread  over  several 
"  months  like  other  methods.  So  take  first  months  delivery  percent  and 
"  bring  in  as  many  NSNs  as  month  can  handle  lex.  10%).  Set  the 
"  XYZ. MONTH  value  at  1  to  mean  bring  entire  order  in  first  month.  If 
' '  an  NSN  can  have  50%  of  its  order  brought  in  in  the  current  month  do 
' '  so,  if  not  have  MSN  be  brought  in  next  month. 

DEFINE  SORTED  AS  A  INTEGER,  l-DIMEMSIONAL  ARRAY 
RESERVE  SORTED(*)  AS  MAX. NSN 

DEFINE  DELIVERY. MONTH,  MONTH. PERCENT,  MAX. PERCENT,  AT. NSN, 

SUN. PERCENT  AS  REAL  VARIABLES 
DEFINE  ROW,  NSN,  DONE  AS  INTEGER  VARIABLES 
DOME-1 


DELIVERY.MOMTH  >  1 

MONTH. PERCENT  »  DELIVERY. PERCENT(OEI,l VERT. MONTH) 

FOR  R0W>1  TO  MAX.NSN  DO  "for  each  NSN  determine  PLT 
MAX. PERCENT-0 

FOR  NSN-1  TO  MAX.NSN  DO  "find  NSN  w/  biggest  PCP*AMF  percent 
IF  ((XYZ. MONTH (MSN)  >  MAX. PERCENT)  AND  ( SORTED ( NSN ) <>DOME ) ) 
"THEN  this  NSN  has  largest  PCP. PERCENT  so  switch 
MAX . PERCENT - XYZ . MONTH ( MSN ) 

AT.MSN-MSM 

ALWAYS 

LOOP 

' 'have  just  found  next  NSN  w/  biggest  PCP*AMF  not  already  done 
SORTED( AT . NSN ) -DOME 

''now  determine  when  NSN  will  be  delivered  in  clump  i.e.  its  PLT 
IF  (SUN. PERCENT  +  (MAX. PERCENT  *  0.5))  <-  MONTH . PERCENT 
' '  THEM  bring  in  this  month 

XYZ. MONTH (AT. MSN)  -  DELI VERY . MONTH 
ELSE  ''bring  in  next  month 

XYZ.  MONTH  (AT.  NSN)  -  DELI  VERY.  MONTH  -i-  1 
ALWAYS 

SUM. PERCENT-SUM. PERCENT  +  MAX. PERCENT 
WHILE  ( (SUM. PERCENT  >-  MONTH . PERCENT )  AMD 
(DELIVERY. MONTH  <  MAX . DELIVERIES ) )  DO  ''updates  for  next  month 
DELIVERY. MONTH-DELI VERY. MONTH  +1 

MONTH. PERCENT  -  MONTH . PERCENT  +  DEL I VERY. PERCENT (DEL I VERY. MONTH) 
LOOP 

IF  TRACE22-.TRUE 

PRINT  1  LIME  WITH  ROW,  AT. MSN,  MAX. PERCENT,  XYZ .MONTH (AT .MSN ) , 
DELI VERY. MONTH,  SUN. PERCENT,  MONTH . PERCENT  THUS 
PASS  **  AT  **  NAX«  **.*  XYZ. MONTH  **  DEL.MTH  **  SUM%  **.*  MTH%  ** 

ALWAYS 

LOOP  ''do  next  MSN  &  find  delivery  month 
END  "routine  METHODl . SCHEDULE 


ROUTINE  OPTIONAL. ASSUMPTIONS 

' 'This  routine  lets  the  user  override  the  standard  assumptions,  options 
''  or  traces  settings  found  in  PGC. INITIALIZE  &  SET. OPTIONS  and  lets 
'  '  the  user  specify  there  own  by  editing  the  file  ASSUMP.MOD  &  entering 
' '  1  in  the  user  query  (10),  select  alternate  Assumption  file. 

DEFINE  TEST. TEXT  AS  TEXT  VARIABLE 

’  USE  UNIT  3  FOR  INPUT  "ASSUMP.DAT 
UNTIL  TEST. TEXT -"T"  DO 
READ  TEST. TEXT 
START  NEW  INPUT  RECORD 
LOOP 

READ  T,  Ml,  M2 
UNTIL  TEST.TEXT-''TRACES''  DO 
START  NEW  INPUT  RECORD 
READ  TEST. TEXT 
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LOOP 

START  NEW  INPUT  RECORD 
READ  TRACE17 
SKIP  3  INPUT  RECORD 
READ  DOREQ.OPT 
CLOSE  UNIT  3 

PRINT  1  LINE  WITH  TRACE17  AND  DOREQ.OPT  THUS 
TRACE  17  IS  DO  REQ  OPTIONS  ** 

END  ''routine  OPTIONAL. ASSUMPTIONS 


ROUTINE  P6C.INITIALI2E 

'  '  This  routine  intializes  some  o£  the  basic  PGC  variables  such  as 
'*  time  intervals  between  processes,  PC  variables,  mean  FORECASTS, 

' '  and  covariance  information. 

DEFINE  MONTH,  TYPE,  MSN  AS  INTEGER  VARIABLE 

DEMAND. INTERVAL*!  ''days  between  generated  demands,  for  DDR*1  day 
REVIEW. INTERVAL*2  ''days  between  review  of  inventory  for  breachs 
LET  BUFFER. V*1000 

IF  NEWASSUMP. OPT*. FALSE 
' 'THEN  use  standard  assumptions 
.  <  **«*«  procurement  CYCLE  VALUES  ****** 

T*365  ' '  ordering  and  holding  cost  constant 

Mla925  ' 'dollar  value  quarterly  demand  floor,  <  Ml  PCP*36  mth 
N2*9999  ' 'dollar  value  quarterly  demand  ceiling,  >M2  PCP*6  mth 

ELSE  ''read  file  with  optional  assumptions 
CALL  OPTIONAL. ASSUMPTIONS 
ALWAYS 


*«*****««*«**««  COVAR  s  CONFIDENCE  INTVL.  variables  ********* 
COVAR. IMTERVAL*180  ''Interv.  betw.  s^unple  points  for  covariance  calc. 
QUICK. INTERVAL*2* 360  ''time  betw.  cont.  quick  covar.  calc. 

K.LAG*6  '*  no.  of  lags  that  separate  covariances  are  calculated 
N.COVAR*4  ' 'number  of  lag  terms  in  full  covariance  &  confid.  Intvl 
N . BLOCKS*LENGTH . OF . SIMULATION/COVAR. INTERVAL 
IF  COVARNSN. OPT*. TRUE 

THEN  do  covariances  &  confidence  interv.  for  all  NSNs  and  total  PGC 
PGC . NUM«MAX . NSN+1 
ELSE 

PGC.NUN*! 

ALWAYS 

CREATE  EVERY  COVAR. INFO (PGC .NUM) 

RESERVE  PRODUCT. MAT (*,*}  AMD  SUN.K.ENDS(*,*)  AS  (PGC. NUM)  BY  K.LAG 


CREATE  EVERY  DEMAND. BO ( MAX. NSN) 

''**  if  no  recruit  info  make  NSN  detail  dimension  *  1 
CREATE  EVERY  NSN. OETAIL( 2 ) 

' '  prepare  for  divide  by  0  error 
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FOR  RSM-1  TO  NAX.NSN 
FOR  TTPE-l  TO  2  DO 

SUM. REQ.SXZE(1ISH, TYPE)  «  .MIMVAL 
MO . REQ . S I ZE ( MSN , TYPE ) > . MINVAL 
SUM . REQ . BO ( MSM , TYPE ) « . MIMVAL 
SUM . UMIT . BO( MSN , TYPE ) - . MIMVAL 

LOOP 

IF  1CC-"P" 

' 'THEM  do  CTREQuirements  matrix  statistics 

RESERVE  MEAM.CTREQ(*}  AMO  STD.CTREQ(*)  AS  MAX. MSN 
FOR  NSM-1  TO  MAX. MSN  DO 

FOR  MONTH- 1  TO  MAX. MONTH  DO 
CCMPUTE 

MEAN. CTREQ( MSM)  AS  THE  MEAN  AMD 
STO.CTREQ(NSM)  AS  THE  STD. DEV  OF 
CTREQ . MAT ( MSM , MONTH , . TOTAL ) 

LOOP 

AVE.  FORECAST  (MSN) -MEAN.  CTREQ  (MSM)  -«•  (QFD(MSM)/3) 
LOOP 

ELSE  ' 'do  QFD  item  only 
FOR  MSM-1  TO  MAX. MSM 

AVE. FORECAST (MSN)-  (gFD(MSM)/3) 

ALWAYS 

END' 'PGC. INITIALIZE 


PROCESS  PLACE. PGC. ORDER 

''This  process  checks  the  inventory  position  of  all  NSMs  in  the  PGC  at 
' '  the  time  of  breach.  The  process  determines  whether  any  of  the  other 
' '  MSMs  will  breach  their  ROP  within  the  next  minimum  procurement  cycle. 
''  It  then  calls  the  CALC. ORDER. QTY  to  determine  the  specific  MSM 
''  order  quantity  of  the  NSMs  that  will  be  ordered.  The  process  then 
''  waits  an  ALT  +  1ST  delivery  days  4  a  PLT  delay  before  calling 
''  RECEIVE. PGC. ORDER.  It  then  waits  30  days  for  each  additional  phased 
''  order  (aganing  calling  RECEIVE. PGC. ORDER)  until  the  entire  order  is 
' '  received. 

DEFINE  ORDER. QTY. NAT  AS  A  INTEGER,  1-DIMEMSIOMAL  ARRAY 
DEFINE  HOLD. PLT,  PC.OMD  AS  REAL  VARIABLES 

DEFINE  SUM. ORDERS,  ORDER. QTY,  MSM,  ASSET. POSITION,  SCH. MONTH, 

ORDER. MUM  AS  INTEGER  VARIABLES 
RESERVE  ORDER. QTY. MAT(*)  AS  MAX. MSM 
• <  *•**•*  determine  which  MSMs  and  how  much  to  order 
FOR  NSM-1  TO  MAX. MSM  DO 

ASSET. POSITIOM-STOCK(MSM)  +  ONORDER(MSM)  -  UNIT. BO( MSN, .TOTAL) 

CALL  SUM. FORECAST. OVER. TINE ( MSM, NIM. PC)  YIELDING  PC.DMD 
IF  (ASSET. POSITION-PC.DMD)  <-  ROP.QTY(MSM) 

' 'THEM  this  MSN  will  breach  soon  so  order  more 

MOW  CALC. ORDER. QTY  GIVEN  MSN  YIELDING  ORDER. QTY 
ORDER . QTY . NAT ( MSN ) -ORDER . QTY 
OMOROER(NSN)-ONOROER(NSM}  +  ORDER. QTY 
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SUM. ORDERS -SUM. ORDERS  ORDER. QTY 

ALWAYS 

LOOP 

IF  SUM.ORDERS-O 

’ 'THEM  ROP  has  changed  and  is  false  order  so  stop  process 
RETURM 
ALWAYS 

ORDER. MUMBER-ORDER. NUMBER  +  1 
ORDER . NUM-ORDER . NUMBER 

••***  NOTE:  PLT  below  is  from  any  NSN  since  all  the  same,  change  soon 
IP  PLT. OPT-. FALSE 

''THEN  input  PLT  -  simulated  PLT,  or  hold  PLT  constant,  no  variablity 
SIM. PLT . DAY-FIRST . DELIVERY 

ELSE  ''draw  from  production  leadtime  delay  distribution 
''hold  for  ave.  stat,  use  PLT  shape  nob 
HOLD. PLT-FIRST. DELIVERY  +  ( PLT . DAY . DELAY . P  •  PLT. OPT) 

IF  HOLO.PLT<lQ 

' '  THEN  order  will  arrive  before  placed  so  set  to  10  days 
SIM.PLT.DAY-IO 

ELSE 

SIM. PLT. DAY  -  HOLD. PLT 
ALWAYS 
ALWAYS 

CALL  PRINT. ORDER  (ORDER. QTY .MAT( *),. TRUE,ORDER.MUM) 

WAIT  (ALT. DAY  +  SIM. PLT. DAY)  DAYS  "  first  incremental  phased  delivery 
FOR  SCH. MONTH  -  1  TO  MAX . DELIVERIES  DO 
CALL  RECEIVE.PGC. ORDER  GIVEN 

ORDER.QTY.NAT(*) ,  SCH. MONTH,  ORDER. MUM 
IF  SCR. MONTH  <  MAX .DELIVERIES 
WAIT  .0PM  DAYS 
ALWAYS 

LOOP 

CALL  PRINT. ORDER  ( ORDER. QTY. MAT(* ), .FALSE, ORDER. NUM) 

END  "process  PLACE . PGC . ORDER 


ROUTINE  PLOT.ATEND 

''This  routine  plots  the  histogram,  BO  &  demand  pie  charts,  fill  rate 
' '  meters  at  the  end  of  program  run. 

DEFINE  ANS,  COL,  PROB,  NSN  AS  INTEGER  VARIABLE 

IF  (WARMUP. PERlOD-0)  AMD  (TARGET. PGC  <>  150$) 

' '  THEN  no  graph  to  hold  on  screen  &  print  histogram  to  show  done 
READ  ANS 
ALWAYS 

IF  TRACES-. TRUE 
' 'THEN  print  histograms 

i .  ••**•**  dynamic  graphics  initialization  *********** 

''set  vertual  terminal 
DEFINE  DEVICE2.IO  AS  POINTER  VARIABLE 
CALL  OEVIMIT.RCVT, GRAPHIC)  YIELDING  DEVICE2.ID 
OPEN  9  FOR  INPUT,  DEVICE-DEVICE2 . ID 
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OPEN  10  FOR  OUTPUT,  OEVZCE-OEVICE2. ID 
USE  10  FOR  GRAPHIC  OUTPUT 


••*«****  calculating  the  %  of  time  w/  BBO  value  distribution  ******* 
***********  if  prob.  ■  20  %  goes  through  loop  20  times  *********** 
FOR  COL*l  TO  ( ( (BIS.B0.2-HIS.BO.l)/HIS.B0.3)-l-l) 

FOR  PROB^l  TO  TRUNC.F( ((HIST.PGC.STOCK(COL) 

/( LENGTH.  OF  .SIMULATION/PLOT .  INTERVAL ) )  •  100 )  -t-0 . 5 ) 
PGC.PL0T-(H1S.B0.1  +  (COL*HlS.BO. 3) )-0. 5  "histog.  point 
DISPLAY  HISTOGRAM  HIST. PGC. PLOT 

IF  TRACE23».TRUE 

PRINT  2  LIMES  WITH  PLOT.YSCALE  THUS 
%  PROBABILITY  SI2E  DISTRIBUTIONS  PGC  NET  STOCK  (YSCALE-  **.**) 

COL  SL  INTERVAL  SL  VALUE  PLOT  %  PROB.  MO . OF . SAMPLES 

FOR  COL=l  TO  (((HIS.B0.2-HIS.BO.l)/HIS.BO.3)+l)  DO 

PRINT  1  LINE  WITH  COL, { (COL*0. 5) -1 . 5) ,  ( (COL*0. 5)-l) , 

(HIS. BO. 1  +  COL*BIS.B0.3},  H 1ST. PGC. PLOT ( COL ) , 

HI ST. PGC. STOCK (COL)  THUS 

**  **.*  <  SL  <  **.*  <  **  **  ** 

LOOP 

ALWAYS 


' 'Used  to  hold  graph  on  screen  &  not  switched  by  next  graph 
READ  ANS 

ALWAYS  ' 'end  of  histogram  plot 


IF  TRACE13-.TRUE 

' 'THEM  graph  the  pie  chart  for  UNIT  EBOs  and  UNIT  demands 
DEFINE  DEVICE4.ID  AS  POINTER  VARIABLE 
DEFINE  TOT.EBO  AS  REAL  VARIABLES 
DEFINE  TOT. UNIT. DEM  AS  INTEGER  VARIABLES 

CALL  DEVINIT.RCVT, GRAPHIC)  YIELDING  DEVICE4 .  ID " set  Virt.  term. 
OPEN  15  FOR  INPUT,  OEVICE=>OEVICE4 .  ID 
OPEN  16  FOR  OUTPUT,  OEVICE*DEVICE4 . ID 
USE  16  FOR  GRAPHIC  OUTPUT 

FOR  MSM-1  TO  3  DO  ''total  EBOs  and  unit  Demands  for  all  MSN 
TOT.EBO-TOT.EBO  *  AVE. UNIT. EBO(NSN, .TOTAL) 

TOT. UNIT. DEM-TOT. UNIT. OEM  *  SUN. REQ.SIZE(MSN, .TOTAL) 

LOOP 

IF  TOT.EBOoO 

'  'THEM  can  print  EBO  pie  since  EBOs  do  not  equal  zero 

FOR  NSM-l  TO  3  DO  "calculate  %  for  1ST  3  NSMs  in  pie  chart 
EBO . PIE ( MSN ) -AVE . UNIT . EBO( MSN , . TOTAL ) /TOT . EBO 
DEMAND . P I E ( MSN ) -SUM . REQ . S I Z E ( NSN , . TOTAL ) /TOT . UN I T . OEM 
LOOP 

''average  annual  unit  demand  at  end  of  simulaion  for  PGC 
TOT .  UNIT . DEM-TOT . UNIT . DEM/( LENGTH . OF . SIMULATIOH/( 12* . DPM ) ) 
DISPLAY  EBO. PIE 
DISPLAY  DEMAND. PIE 
ALWAYS 
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LKT  VXFORM.V  *  5 

CALL  SETNORLO.R  (0,79,0,  23) 

CALL  MXRESET.R  (0) 

CALL  MXLATE.R  (5,2)  "X,y  coordinates  position 
CALL  TEXTAMGLE.R  (0)  "angle  of  the  text  from  0  to  3600 
WRITE  TOT. EBO, TOT. UN IT. OEM  AS  "PGC  TIME  WEIGHTED  BACKORDERS", 
D(8,l),  "  PGC  ANNUAL  DEMANDS  ”,  I  7,  /  USING  16 
CALL  MXLATE.R  (20,17)  "X,y  coordinates  position 
WRITE  AS  "UNIT  BACKORDERS  AMO  DEMANDS”,  /  USING  16 
CALL  GUPDATE.R 
READ  AMS 
ALWAYS 

IF  TRACE11>.TRUE  "display  fill  rate  meters 

*****************  PILL  rate  graphics  ***************************** 
DEFINE  SUM. DEM,  SUM. BO  AS  INTEGER,  1-DIMENSIONAL  ARRAY 
RESERVE  SUM.OEM(*),  SUM.BO(*)  AS  2 
DEFINE  DEVICE3.ID  AS  POINTER  VARIABLE 
DEFINE  TYPE  AS  INTEGER  VARIABLE 
CREATE  EVERY  PLOTNSN(3+2) 

CALL  DEVINIT.R(”VT, GRAPHIC")  YIELDING  DEVICE3 . ID"  set  Virt.  term. 
OPEN  13  FOR  INPUT,  DEVICE»DEVICE3 . ID 
OPEN  14  FOR  OUTPUT,  OEVICE-OEVICE3 . ID 
USE  14  FOR  GRAPHIC  OUTPUT 

DISPLAY  PILLRATE(3+. TOTAL)  WITH  "FILRTPGC.GRF" 

DISPLAY  FILLRATE(l)  WITH  "FILRTl.GRF” 

DISPLAY  FILLRATE(2)  WITH  "FXLRT2.GRF” 

DISPLAY  FILLRATE(3)  WITH  "FILRT3.GRF” 

***  calculating  total  &  recruit  PGC  REQUISITIONS  fills  for  all  NSNs 
***  do  NSNs  fill  rates 
TYPE-i.  RECRUIT 
FOR  NSN>1  TO  3  DO 

FILLRATE(NSN)>100  *  (1- 

(SUM.REQ.BO(NSN,TYPE)/MO.REQ.SIZE(NSN,TYPE) ) ) 

LOOP 

***  do  total  and  recruit  fill  rates 

FOR  TYPE  >  1  TO  2  DO  "if  want  dynamic  fill  rates,  initial  sums 
SUN. BO( TYPE )-0 
SUN. OEM( TYPE )>0 
LOOP 

FOR  TYPE-1  TO  2 

FOR  NSN-1  TO  3  DO  ' 

SUM. BO (TYPE) -SUM. BO (TYPE)  +  SUM. REQ. BO (MSN, TYPE) 

SUM. OEM (TYPE) -SUN. OEM (TYPE)  +  NO.REQ.SIZE(NSN, TYPE) 

LOOP 

FI  LLRATE  (  3  ■!• .  TOTAL )-(!-( SUM .  BO(  .  TOTAL )  /SUM .  DEM  (  .  TOTAL ) ) )  *  1 0  0 
IF  OOREQ. OPT-. TRUE 

"  THEN  RTC  fill  rates,  else  no  requisitions  so  no  RTC  fill  rates 
DISPLAY  F1LLRATE(3+. RECRUIT)  WITH  "FILRTRTC.GRF” 

FILLRATE(3  -I-.RECRUIT)- 

(l-(SUM.BO( .RECRUIT)/SUM.DEM( .RECRUIT) ) )*100 

ALWAYS 

LET  VXFORM.V  -  5  ' 'mapping  from  real  world  to  normalised 
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CALL  SETWORLO.R  (0,79,0,  23) 

CALL  MXLATE.R  (20,3)  ' 'X,y  coordinates  position 
CALL  TEXTAM6LE.R  (0)  "angle  of  the  text  from  0  to  3600 
WRITE  AS  "  RECRUIT  SUPPLY  AVAILABILITY  .—■a.— »/\" » 

/  USING  14 

CALL  MXRESET.R  (0)  "resets  pointer  to  given  object,  O^null 

CALL  MXLATE.R  (22,0)  "X,Y  coordinates  position 

WRITE  FILLRATE(3  -t*. TOTAL)  AS  "  PGC  SUPPLY  AVAILABILITY", 

D(5,0),"%", /USING  14 
CALL  MXLATE.R  (3,21) 

WRITE  AS  "REQUISITION  SUPPLY  AVAILABILITY",  /USING  14 
CALL  GUPDATE.R 
call  mxreset.r(O) 

READ  ANS 

ALWAYS  ' 'end  of  fill  rate  plot 
END  ''PLOT.ATEND 


ROUTINE  PRINT. ASSUMPTIONS 

''Prints  all  pertinent  assumptions  and  variables  for  the  run  including 
''options,  query  answers,  safety  level,  OWRM,  PLT,  ALT,  Ml,  M2,  T,  COST 
"  ARS,  RTC  CUTOFF,  VIP,  XY2.  MONTH  ETC. 

DEFINE  NSN  AS  INTEGER  VARIABLES 
DEFINE  PER.SD  AS  REAL  VARIABLE 

LINES. V-0 

PRINT  2  LINES  THUS 


PRINT  17  LINES  WITH  TARGET. PGC,  DNDNAD.OPT,  PLT. OPT,  SHORT. OPT, 
(LENGTH. OF. SIMULATION/360) , (END. OF. SIMULATION/3 60) ,  ADDPGC.OPT, 
VSL.OPT,  MODI FYDATA. OPT,  MODMPTOll.OPT,  NEWASSUMP . OPT , 

POISSON. OPT,  DOREQ.OPT,  NAPE. OPT,  NORMAL. OPT,  COVARNSN.OPT  THUS 
mmmmMMmmM  MODEL  OPTION  ASSUMPTIONS  (true-1  and  false-0) 

1) PGC  NUMBER 

2)  SIMULATED  DEMAND  KNOB  *.**  (0: FALSE  -  DEMAND  IS  FORECAST, else  MAD) 

3) PLT  DAYS  DELAYED  KNOB  (0:FALSE-  Constant  PLT,  else  variance) 

4) SBORT  RUN  WITH  PLOT  ( 0 : FALSE^longer  run  for  definitive  results) 

5) LENTH  OF  SIMULATION  TOTAL  LENGTH  OF  RUN  WITH  WARMUP  ** 

6)  **:  0  DO  NOT  ADD;  Inruns  for  same  PGC(10  ■  1ST  PGC  in  group); 

2«add  different  PGC  info  (20  >  1ST  PGC in  group) 

8) VARIABLE  SAFETY  LEVEL  OPTION  **  (0:FALSE-  FIXED  SAFETY  LEVEL) 

9) EDITED  THE  SSCF  DATA  **  (0:FALSE"  use  standard  data  with  no  change) 

10) EDITED  MPTOll  TABLE  (0:FALSE«  use  standard  data  with  no  change) 

11) EDITED  ASSUMPTIONS  **  (0:FALSE  >  Standard  assumptions,  no  change) 

O  DAILY  DEMAND  RATE  FR(M  POISSON  OIST.  **  ( 0 : FALSE-MONTHLY  OEMAND/30) 
o  REQUISITION  GROUPINGS  FOR  DEMANDS  ""  (0:FALSE-REQ.SIZE-DDR  each  day) 
o  SIMULATED  DEMAND  via  MAPE  ""  (OsFALSE  -NO  adjustments  used) 

o  NORMAL  CTREQ  DISTRIBUTION  ""  (0:FALSE-  1ST  3yrs.  are  actual  CTREQ) 
o  COVARIANCE  FOR  ALL  NSNs  **  (0:FALSE-  only  PGC  covar  calculated) 

PRINT  4  LINE  WITH  ALT. DAY,  FIRST. DELIVERY,  COST,  Ml,  M2,  T  THUS 
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•  KEY  VARIABLES  USED  IM  RUE  .  — 

ALT  **  PLT  OP  FIRST  DELIVERY  **  COST  $  **,** 

Ml  **.*  M2  **.*  T  ** 

PRINT  1  LINE  THUS 

NSN  RTC  CUT  ARS  %RTC  STOCK  OWRM  PLT  SAFETY  MTHS  %SD/AMF  VIP  XYZ 
FOR  NSN-1  TO  MAX. MSN  DO 

' 'callculate  %  of  monthly  stand,  deviat.  of  MAO  divide  by  forecasts 
PER.SD>  (100  *  MAD(MSM)  *  1.25)  /  AVE. FORECAST (MSN) 

IF  VIP.ITEM(NSN)  >  .FALSE 

PER.SD  a  PER.SD  /  SQRT.F(3) ' 'adjust  from  quarterly  to  monthly 
ALWAYS 

PRINT  1  LINE  WITH  NSN,  RECRUIT. SIZE. CUTOFF(MSM) ,ARS(NSN) , 

PER. RTC. DEMAND (NSN) *100,  STOCK(NSN),  OWRM(NSN),  PLT . DAY ( NSN ) , 
SAFETY. MONTH (MSN),  PER.SD,  VIP. ITEM(MSM) ,  XYZ .MONTH (MSN)  THUS 
**  **  **  **  **  **  **.*  **,•**  **,*  *  ** 
LOOP 

END  "routine  PRINT. ASSUMPTIONS 


ROUTINE  PRINT. ATEMD 

''This  routine  prints  the  table  of  summary  statistics  during  and  at  the 
''end  of  simulation:  requisition  vs  unit,  total  vs  RTC,  for  EBO, 

' '  AVBOD,  fill  rates,  and  demands/yr 
DEFINE  MSN, TYPE  AS  INTEGER  VARIABLES 
DEFINE  FOR. TIME  AS  REAL  VARIABLE 

IF  TIME.V  <-  WARMUP. PERIOD 

FOR.TIMEaTIME.V  +  ( .MIMVAL* 100000) 

ELSE 

FOR.TlME>TIME.V  -  WARMUP . PERIOD 
ALWAYS 

PRINT  3  LINES  THUS 

.»...>sIiequiSITIONS*»»->«»»  .M...URIT  DEMANDS>»»-»»»» 


»«AVBOD——  *««DEM/YR»-«-«  ■.—avBOD——  a«.»DEM/YR=»=» 

NSN  TOT  RTC  TOT  RTC  TOT  RTC  TOT  RTC 


FOR  MSM«1  TO  MAX. NSN  DO 
BEGIN  REPORT  PRINTING 

FOR  TYPE-1  TO  2  IN  GROUPS  OF  2 
PRINT  1  LINE  WITH  NSN, 

A  GROUP  OF  ( (AVE. REQ.EBO(NSN,TYPE)*FOR. TIME) 

/SUM. REQ. BO (NSN, TYPE))  FIELDS, 

A  GROUP  OF  (360*NO. REQ. SIZE(NSN,TYPE)/FOR. TIME)  FIELDS, 

A  GROUP  OF  ( (AVE. UNIT. EBO(MSN, TYPE) *FOR. TIME) 

/SUM. UNIT. BO(NSM, TYPE))  FIELDS, 

A  GROUP  OF  (360*SUM. REQ. SIZE(NSM,TYPE)/FOR. TINE) 

FIELDS  THUS 

**  **.*  **.*  **.*  **.*  **.*  **.*  **  ** 


END ' '  REPORT 
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LOOP 

PRINT  3  LINES  THUS 

........requisitions——— »  ......UHIT  DEMANDS——— 

.....EBOsa-a»  »FILL  RATES»  ...BBOs—  »FILL  RATES- 

MSN  TOT  RTC  TOT  RTC  TOT  RTC  TOT  RTC 

FOR  NSN-1  TO  MAX.NSN  DO 

BEGIN  REPORT  PRINTING 

FOR  TYPE-l  TO  2  IN  GROUPS  OF  2 

PRINT  1  LINE  WITH  NSN, 

A  GROUP  OF  AVE.REQ.EBO(NSN,TyPE)  FIELDS, 

A  GROUP  OF  (100*(l-(SUM.REQ.BO(NSN,TyPE) 

/HO.REQ.SIZE(KSN,TyPE) ) ) )  FIELDS, 

A  GROUP  OF  AVE. UNIT. EBO(NSN, TYPE)  FIELDS, 

A  GROUP  OF  (100*(1-(SUM. UNIT. BO(NSN, TYPE)/ 

SUM. REQ.SIZE(NSN, TYPE) )) )  FIELDS  THUS 

**  **  **  **  *  **  **  **  *  *«  **  **  *  **  ** 
•  •  «•  •  •  •• 

END' '  REPORT 

LOOP 

END  ' ' PRINT. ATEND 


ROUTINE  PRINT. DELI VERY. MATRIX 

"This  routine  prints  the  delivery  matrix:  the  3  rows  are  X,  Y,  Z; 
"columns  are  for  the  number  of  deliveries.  Values  are  the  fraction 
"of  the  total  item  (X,Y,Z)  order  delivered  that  month  (i.e.  each  row 
' ' sums  to  1. 

DEFINE  ROW,  MONTH  AS  INTEGER  VARIABLES 
PRINT  3  LINE  THUS 

DELIVERY  MATRIX  FOR  X,  Y,  AND  Z  ITEMS 
XYZ  1  2  3  4  5  6!  SUM% 

FOR  ROW  -  1  TO  3  DO 

BEGIN  REPORT  PRINTING 

FOR  MONTH  -  1  TO  MAX . DELIVERIES  IN  GROUPS  OF  6 

PRINT  1  LINE  WITH  ROW,  A  GROUP  OF  XYZ. MATRIX(ROW, MONTH) 
FIELDS,  XYZ.SUN(ROW)  THUS 

**  **.*«*  •*.***  **.*«*  **.*♦*  *•.***  •*.***  I  «*,** 

END  ' '  REPORT 

LOOP 

IF  TRACE22-.TRUE 

BEGIN  REPORT  PRINTING 

FOR  MONTH  -  1  TO  MAX. DELIVERIES  IN  GROUPS  OF  6 

PRINT  2  LINES  WITH  A  GROUP  OF  DELIVERY . PERCENT (MONTH) 
FIELDS  THUS 
PGC  DELIVERY  PERCENTS 

PGC  AA^AA  AA^AA  AA^AA  AA^AA 

END  ' '  REPORT 
ALWAYS 
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END  "routine  PRINT.  DELI  VERY.  MATRIX 


PROCESS  PRINT. DEMANDS 

' 'This  process  gives  requisition  size  and  iterval,  AMF,  AMF/AMD  ratio, 
''onhand,  onorder  information  at  specified  intervals,  calls 
' ' PRINT . ATEND ,  and  gives  cummulative  BOs  and  demands. 

DEFINE  NSN,  TYPE  AS  INTEGER  VARIABLES 
DEFINE  YEARS  AS  REAL  VARIABLE 

WAIT  TRACE. INTERVAL  DAYS 
UNTIL  TIME.V  >  END. OF. SIMULATION  DO 
IF  TIME.V  <»  WARMUP. PERIOD 
YEARS>TIME.V/360 
ELSE 

YEARS-  (TIME.V  -  WARMUP. PERIOD )/3 60 
ALWAYS 

IF  TRACE2-.TRUE 

■ 'THEN  print  the  following  (NOTE:  ARS.SIM  is  based  on  all  requistions 
"except  the  current  REQ. size. now  that  has  not  hit  the  inventory, 
' 'SIM  DD  is  the  total  monthly  demand  felt  by  the  inventory 
PRINT  4  LINES  WITH  AT. MONTH,  YEARS,  TIME.V  THUS 

END  OF  MONTH  DATA:  MONTH  **  YEAR  **.*  (time.v  **) 

--CUMULATIVE-  -AMF*»  RATIO  — -AVE  UNITS———  — AVE  MONTHS— 

MSN  ARS.SM  INTRVL  FORCST  FOR/DD  ONORDER  ONHAND  %0/0  OR/F  OH/F  WAR 

FOR  NSN-  1  TO  MAX. NSN  DO 
PRINT  1  LINE  WITH  NSN, 

AVE. REg.SI2E(NSM, .TOTAL) , AVE. REQ. INTERVAL (MSN, .TOTAL) , 

SUN. FORECAST (MSN) /(YEARS  *12), 

(100*  SUM . FORECAST ( NSN ) /SUN . REQ . S I ZE ( MSN , . TOTAL ) ) , 

AVE . OMOROER( MSN ) ,  AVE . STOCK ( NSN ) , 

(100*AVE.ONORDER(NSN)/(AVE.STOCX(NSN)-«-AVE.ONORDER(NSN) ) ) , 

(AVE.OMORDER(NSM)/( (SUM. FORECAST (MSN) /YEARS) /I 2) ) , 

(AVE. STOCK ( NSN )/( (SUN. FORECAST (MSN) /YEARS) /I 2) ) , 

(OWRM(NSN)/((SUM.FORECAST(NSN)/YEARS)/12) )  THUS 

*******  **  **  **  **  **  **.*  **  **  **  * 

«  *  •  •  • 

LOOP 

ALWAYS 

IF  TRACES-. TRUE 

CALL  PRINT. ATEND 
ALWAYS 

IF  TRACE3-.TRUE 
''then  print  BOs  &  Demands 

PRINT  4  LINES  WITH  AT. MONTH  THUS 

MONTH  **  —REQUISITIONS  BACKORDERS—— 

—  CUM  — —  —CURRENT— 

MSN  TOT  RTC  TOT  RTC 


*.*..*«UKIT  BACKORDERS— =  — 
—  CUM  —  -CURRENT- 
TOT  RTC  TOT  RTC 
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FOR  MSM>1  TO  MAX. MSN  DO 
BEGIN  REPORT  PRINTING 

FOR  TYPE-1  TO  2  IN  GROUPS  OF  2 
PRINT  1  LINE  WITH  NSN, 

A  GROUP  OF  SUM. REQ. BO (MSN, TYPE)  FIELDS, 

A  GROUP  OF  REQ. BO(MSM, TYPE)  FIELDS, 

A  GROUP  OF  SUM. UN IT. BO (MSN, TYPE)  FIELDS, 

A  GROUP  OF  UNIT. BO(NSM, TYPE)  FIELDS  THUS 
**  **  **  •*  *«  *«  **  ** 

END ' '  REPORT 
LOOP 
ALWAYS 

WAIT  TRACE. INTERVAL  DAYS 
LOOP  ' 'of  Until 
END  ''process  PRINT. DEMANDS 


PROCESS  PRINT. LEVELS 

''This  process  prints  the  requirements,  PC,  MIN. PC,  stock,  backorders 
' '  at  specified  intervals 

DEFINE  MSN. I  AS  INTEGER  VARIABLES " array  indices 

UNTIL  TIME.V  >  END. OF. SIMULATION  DO 

PRINT  4  LIMES  WITH  AT. MONTH,  TIME.V  THUS 

BEGINNING  OF  MONTH  **  C  &  T  LEVELS  &  DEMANDS  BY  MSN  (time.V  **) 

MSN  aOxDOR  FORCTS  PCP.MTH  MIN. PC  ROP  QTY  STOCK  ORDER  UBO  RBO 

FOR  NSN.I-1  TO  MAX. MSN 

PRINT  1  LINE  WITH  MSN. I,  (DDR(NSM. I )•(. DPM/DEMAMD. INTERVAL) ) , 
FORECAST . MTB ( MSN . I ) , PCP . MONTH ( MSN . I ) , MIN . PC ,  ROP . QTY ( NSN . I ) , 

STOCK (NSN. I), ONOROER(MSM.I), UNIT. BO( MSN. 1,1),  REQ.BO(NSN. I , 1 )  THUS 
•*  *•  **  ** .*  **,*  **  •*  *•  **  ** 
WAIT  TRACE. INTERVAL  DAYS 
LOOP 

END"routine  PRINT. LEVELS 


ROUTINE  PRINT. ORDER  GIVEN  ORDER. MAT,  SENDOUT,  AMD  ORDER. NUM 
''Prints  the  order  quantity  placed  for  all  NSNs,  PLT  delays,  when 
' '  will  come  in,  and  inventory  positions  all  at  time  of  breach  and 
''  when  order  completely  delivered. 

IF  TRACES-. TRUE 

DEFINE  BO. MEMBER,  NSN,  ORDER. NUM,  SENDOUT  AS  INTEGER  VARIABLES 
DEFINE  ORDER. MAT  AS  INTEGER,  l-DIMEMSIONAL  ARRAY 
RESERVE  ORDER.MAT(*)  AS  MAX. NSN 

IF  SENDOUT- . TRUE 
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' '  THEN  just  placed  the  following  order 

PRINT  2  LINES  WITH  ORDER. NUM,  FIRST. DELIVERY , 

SIM.PLT. DAY-FIRST. DELIVERY,  (TIME.V-t-SIM.PLT.OAY+ALT.DAY)  THUS 
ORDER  NO.  **  1ST  PLT  DELIVERY  **  PLT  DELAY  **  C(»IE  IN(LT)  ** 

NSN  ORDER  ROP  STOCK  ONORDER  U.BO  U.BO.RTC  REQ.BO  REQ.B.RTC 

•'  TRACE1».TRUB 

ELSE 

IF  TRACE12>.TRUE 

' '  THEN  ****  Print  backorder  requisition  queue 

FOR  NSN^l  TO  MAX. NSN 

FOR  EACH  BO. MEMBER  IN  REQ.BO. QUEUE (NSN)  DO 
PRINT  1  LINE  WITH  NSN,  BO. TYPE (BO. MEMBER ) , 

BO. SIZE (BO. MEMBER)  THUS 
NSN  **  TYPE  OP  BO  **  SIZE  OP  BO  ** 

LOOP 

ALWAYS 

PRINT  3  LINES  WITH  ORDER. NUM,  TIME.V  THUS 

xxxxxxx  RECIEVEO  ALL  OF  ORDER  **  AT  TIME  xxxxxxxxxxxxx 

NSN  ORDER  ROP  STOCK  ONORDER  U.BO  U.BO.RTC  REQ.BO  REQ.B.RTC 

"  TRACE1». FALSE 

ALWAYS 

FOR  NSN  •  1  TO  MAX. NSN  DO 

PRINT  1  LINE  WITH  NSN,  ORDER. MAT ( NSN ) ,  ROP . QTY ( NSN ), STOCK ( MSN ) , 
ONOROER(NSN),  UNIT. BO(NSN, .TOTAL) ,  UNIT. BO(NSN, .RECRUIT) , 

REQ. BO (NSN, .TOTAL) ,  REQ.BO(NSN, .RECRUIT)  THUS 
**  •*  **  **  **  **  **  *•  •• 

LOOP 

ALWAYS 

END  ''routine  PRINT. ORDER 


ROUTINE  PRINT. PGCSTATS 

''This  routine  prints  the  summary  statistics  at  the  end  of  the 
''  simulation  at  a  PGC  level.  Specifically,  backorders, 

''  availabilities,  and  annual  demands  (requisition  &  unit  levels); 

''  onhand,  onorder,  orders/yr  values;  and  calibration  information 

''  confidence  intervals,  %  onorder  to  tots'!  stock,  etc. 

DEFINE  I,  NSN,  TYPE  AS  INTEGER  VARIABLES 

DEFINE  PER. Cl,  PGC. STOCK,  PGC. ONORDER,  PGC . FORECAST ,  FOR. TIME 
AS  REAL  VARIABLE 

DEFINE  PGC.REQDEM,  PGC.UNITDEM,  PGC.REQBO,  PGC.UNITBO,  PGC.REBO, 
PGC.UEBO  AS  REAL,  1 -DIMENSIONAL  ARRAY 
RESERVE  PGC.REQDEM(*),  PGC.UNITDEM(*) ,  PGC.REQBO(*) ,  PGC.UNITBO( * ) , 
PGC.REBO(*),  PGC.UEBO(*)  AS  2 
DEFINE  NEWPGC  AS  REAL,  1 -DIMENSIONAL  ARRAY 
RESERVE  NEWPGC(*)  AS  11 
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LINES. V-0 

IF  TIME.V  <>  WARMUP. PERIOD 
FOR.TIME-TIME.V  +  .MINVAL 
ELSE 

FOR. TIME-TINE. V  -  WARMUP . PERIOD 
ALWAYS 

' '  sum  from  MSN  to  PGC  level 
FOR  TYPE-1  TO  2 

FOR  NSM-1  TO  MAX.NSN  DO 

' '  PGC  EBOs  or  sum  of  all  MSNs  time  weighted  Backorders 

PGC. REBO( TYPE)-  PGC . REBO( TYPE )  +  AVE.REQ.EBO( MSN, TYPE) 

PGC. UEBO( TYPE)-  PGC. UEBO( TYPE)  +  AVE. UNIT. EBO( MSN, TYPE) 

' '  total  number  of  backorders  used  in  f illrate/availability 

PGC.REQBO(TYPE)-PGC.REQBO(TYPE)  SUM.  REQ.  BO  (MSN,  TYPE) 

PGC.UNITBO(TYPE)-PGC.UNITBO(TYPE)  +  SUM. UNIT. BO(MSM, TYPE) 

' '  total  demands  over  simulation 

PGC. REQDEM ( T YPE)- PGC. REQOEM( TYPE)  +  MO.REQ.SIZE(NSM,TYPE) 

PGC. UMITDEM( TYPE)-  PGC.UNITDEM(TYPE)  +  SUM. REQ. SIZE(NSM, TYPE) 

LOOP 

FOR  TYPE-1  TO  2  DO  ' '  check  for  divide  by  zero 
IF  PGC. REQDEM ( TYPE )-0 

PGC . REQDEM( TYPE ) - . MINVAL 
ALWAYS 

IF  PGC. UMITDEM( TYPE )-0 
PGC . UMITDEM( TYPE) -0 
ALWAYS 
LOOP 

FOR  NSM-1  TO  MAX.NSN  DO 

ADD  AVE. STOCK (MSN)  TO  PGC. STOCK 
ADO  AVE.ONOROER(MSN)  TO  PGC.ONOROER 
ADD  SUM. FORECAST (MSN)  TO  PGC. FORECAST 
LOOP 

FOR  I  -  1  TO  2  DO  ''2  prints  of  below  1st  to  file,  2nd  to  screen 

PRINT  6  LINE  WITH  PGC. NO,  RUN. ID,  PGC. NAME,  MAX.NSN,  COST, 

(ORDER. NUNBER/(LENGTH. OF. SIMULATION/360) )  THUS 


SUMMARY  PGC  REPORT 

....>.«.......«..»»(PGC  NO.  **  RUN  ID  **)-» 

PGC  NAME  *****************  MSNs  **  COST  -**. 

TIME  WGHT  BO  — —  AVAILABILITY 
TOT  RTC  TOT  RTC 


OROERS/YR  **.** 

— —  DEMANOS/YR  — 
TOT  RTC 


BEGIN  REPORT  PRINTING 

FOR  TYPE-1  TO  2  IN  GROUPS  OF  2 
PRINT  2  LIMES  WITH 

for  requisitions  EBOs,  availability,  demands/yr 
A  GROUP  OF  PGC. REBO( TYPE)  FIELDS, 

A  GROUP  OF  (100*(1-(PGC.REQBO(TYPE) 
/PGC.REQDEM(TYPE))))  FIELDS, 

A  GROUP  OF  (36a*PGC.REQDEM(TYPE)/FOR.TINE)  FIELDS, 
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*'  for  units  EBOs,  availability,  denands/yr 

A  GROUP  OF  PGC.UEBO(TrPB)  FIELDS, 

A  GROUP  OF  (100*(l-(PGC.UllITBO(TyPE)/ 

P6C . UNITOEM( TYPE ) ) ) )  FIELDS , 

A  GROUP  OF  (360*PGC.UllITDEM(TyPE)/FOR.TIME)  FIELDS  THUS 
REQUISIT.  **.*  **.*  **.**  •*  ** 

UHITS  **,*  *».*  **.**  »*,**  •*  ** 

END  ' ' REPORT 

PRINT  4  LINES  WITH  PGC. STOCK,  PGC.ONORDER,  PGC.SL. STOCK, 

COST* PGC. STOCK,  COST* PGC.ONORDER,  COST*PGC.SL. STOCK  THUS 

AVERAGE:  a STOCK  »»=»=  ONORDER  =»»«=  SAFETY  LEVEL  =»==» 

UNITS  **  **  ** 

DOLLARS  **  **  ** 

IF  AVE.COVAR. DATA (PGC. HUM )=0 
"THEN  no  %CI/MEAN 
PER.CI=0 
ELSE 

PER. C I »  100*CONF . INTV/AVE . COVAR. DATA( PGC . HUM) 

ALWAYS 

PRINT  4  LINE  WITH 

TIME.V/360,  LENGTH. OF. SIMULATION/360,  WARMUP. PERIOD/360, 

REVIEW. INTERVAL,  DEMAND . INTERVAL ,  AVE. COVAR. DATA (PGC. MUM) , 

PER . Cl ,  PLOT . YSCALE* AVE . PGC . NET . STOCK , 
(100*PGC.ONORDER/(PGC.STOCK-t>PGC. ONORDER) ) , 

(100*PGC.PORECAST/PGC.UN1TDEM(1)),  ( 360*PGC. FORECAST/FOR. TIME)  THUS 
CALIBRATIONAALIDATION  INFORMATION 

TIME.V(YR)  **.*  SIM  (YRS)  **.*  WARMUP  **  (REVIEW  **  DEMAND  **  DAYS) 
PGC. BO  «CI/NEAN  AVE  NET  STOCK  %OR/OH-K>R  %  FORE/DEMD  YR  FORCST 
**  **  **,*«  ** 

IF  1>1  "end  of  first  pass  to  file,  switch  output  to  screen 
USE  UNIT  6  FOR  OUTPUT 
ALWAYS 
LOOP 

"*******  Prepare  information  to  go  into  table  w/  many  PGCs 
NEWPGC(l)>PGC.NO 
NEWPGC ( 2 ) >PGC . UEBO( 1 ) 

NEWPGC ( 3 ) -PGC . REBO ( 1 ) 

NEWPGC(4)-100*(l-(PGC.REQBO(l)/PGC.REgDEM(l) ) ) 

NEWPGC ( 5 ) -100* ( 1- ( PGC . REQBO( 2 ) /PGC. REQDEM( 2 ) ) ) 

NEWPGC(6)-  COST* PGC. STOCK/100000 
NEWPGC ( 7 ) -  COST*PGC . ONOROER/100000 
MEWPGC(8)-  COST* PGC. SL.STOCK/100000 
NEWPGC ( 9 ) - ( 30*PGC . UNITDEM( 1 ) /FOR. TIME ) /lOO 
NEWPGC ( 10 ) - ( 30*PGC . REQOEN( 1 )/FOR. TIME ) 

NEWPGC ( 11 )-( 30*PGC . REgDEM( 2)/FOR. TIME) 

CALL  ADD. ALL. PGCS  GIVEN  NEWPGC(*) 

END  "routine  PRINT . PGCSTATS 
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ROUTINE  PRINT. QUERIES 

' 'Prints  the  answers  entered  by  user  during  interactive  session. 
PRINT  2  LINES  THUS 


PRINT  13  LINES  WITH  TARGET. PGC,  OM!»(AO.OPT,  PLT.OPT,  SHORT. OPT, 

( LENGTH . OF . SIMULATION/360 ) , ( END. OF . SIMULATION/360 ) ,  AODPGC . OPT , 
VSL.OPT,  MOOIFYDATA.OPT,  MODMPTOll.OPT,  NEWASSUMP . OPT  THUS 
model  OPTION  ASSUMPTIONS  (true»l  and  false-O)  =«»=»«»== 

1) PGC  NUMBER  ** 

2) SIMULATED  DEMAND  KNOB  *.**  (0:FALSE  -  DEMAND  IS  FORECAST, else  NAD) 

3) PLT  DAYS  DELAYED  KNOB  *.**  (0:FALSE-  Constant  PLT,  else  variance) 

4) SHORT  RUN  WITH  PLOT  **  (0:FALSE>longer  run  for  definitive  results) 

5) LENTH  OF  SIMULATION  **  TOTAL  LENGTH  OF  RUN  WITH  WARMUP  ** 

6)  **:  0  DO  MOT  ADD;  Inruns  for  same  PGC(10  »  1ST  PGC  in  group); 

2aadd  different  PGC  info  (20  ^  1ST  PGC  in  group) 

8) VARIABLE  SAFETY  LEVEL  OPTION  **  (0:FALSE-  FIXED  SAFETY  LEVEL) 

9) EDITED  THE  SSCF  DATA  **  (OtFALSEa  use  standard  data  with  no  change) 

10) EDITED  MPTOll  TABLE  **  (0:FALSE»  use  standard  data  with  no  change) 

11) EDITED  ASSUMPTIONS  **  (0:FALSE  •  Standard  assumptions,  no  change) 

END  "routine  PRINT. QUERIES 


PROCESS  PRINT. QUICK. COVAR 

' 'This  process  uses  an  approximation  formula  to  estimate  the 
' '  covariance  continuously  at  intervals  thoughout  the  simulation. 

' '  Used  primarily  to  determine  end  of  warmup  period  and  length  of 
' '  run  as  well  as  the  rate  of  confidence  interval  change.  Uses 
' '  info,  collected  by  COVAR. SAMPLING  process  and  automatically  printed 
' '  for  long  runs 

DEFINE  MSN,  LAG,  BLOCK  AS  AN  INTEGER  VARIABLE 
DEFINE  COVAR. SUM,  C.I.  AS  A  REAL  VARIABLES 

I  I  «*«***•  MOTE;  FUNCTION  IS  WRONG  &  ONLY  APPROXIMATION.  ******** 

"  DOES  MOT  CONSIDER  K.LAG  ITEMS  IN  SET  FOR  Xi*Xi-«-k  PRODUCT 
"  UNTIL  THE  LAST  INTERVAL  ONCE  COVAR. SAMPLING  HAS  STORED  THEM 

I  t  *****************************************  a'**  It  *  it  It  it  it  it  it  It  It  it  it  It  It  Ith  it*  It  It  It  h 


WAIT  WARMUP. PERIOD  DAYS 
UNTIL  TIME.V  >«  END. OF. SIMULATION  DO 
WAIT  QUICK. INTERVAL  DAYS 

BLOCR-TRUNC.F( (TIME.V-WARNUP.PERIOD)/COVAR. INTERVAL) 

FOR  NSM-l  TO  PGC.NUM  DO 
COVAR. SUM«0 

FOR  LAG>1  TO  M. COVAR  DO 

COVAR. SUM-COVAR. SUM  +  (( 2/BLOCK) *( PRODUCT.MAT (MSN, LAG)  + 
( ( LAG-BLOCK )  *  ( AVE . COVAR.  DATA ( NSM )  * <•  2 ) ) ) ) 

LOOP 
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IF  ( ( AVE . COVAR. DATA( MSM ) <>0 ) 

AMD  (VAR. COVAR. DATA ( MSM )-H:OVAR.SUM»iO)  ) 

C.Z.-  1.96  •  SORT. ?{( VAR. COVAR. DATA ( MSM )+COVAR.SUN)/BLOCK) 
PRIMT  1  LIME  WITH  MSM,  ( (TIME. V-WARMUP. PERIOD) /360) , 

AVE . COVAR. DATA (MSM ) , PGC . MET. STOCK* PLOT . YSCALE ,  C . I . , 

( 100*C . I . /AVE . COVAR. OATA(MSM ) )  THUS 

QUICK  MSM  **  YR  **.*  MEAM  **  NETSTOCK  **  Cl  **  %CI/AVE  ** 

ELSE 

''  PRIMT  I  LIME  WITH  MSM,  BLOCK,  AVE. COVAR. DATA ( MSM ), COVAR. SUM, 

' '  VAR. COVAR. DATA (MSM)  THUS 

' '  QK  MSM**  BLOCK  **  MEAM  **  2COV/M  **  VAR  ** 

ALWAYS 

LOOP 

LOOP  ' 'until 
EMD  ' ' PRIMT . QUICK . COVAR 


ROUTIME  PRIMT. SSCF. DATA 

''This  routine  prints  the  SSCF  data  read  in  by  routine  IMPUT . SSCF . DATA 
DEFIME  MSM,  COL  AS  IMTEGER  VARIABLE 

IF  TRACE17-  .TRUE 

PRIMT  5  LIME  WITH  PGC. MO,  MAX. MSM  THUS 

HiaaaiaaaavHiaaaaiaaHiaiaaiaMaiaaaaaaiaaiaaisaaaiasaiaaiSBaBsaBafliaaBsaaassaaaaKSsasa 

a.aa  PGC  SPECIAL  SUPPLY  CONTROL  FILE  IMPUT  DATA 

PROC.6R.CD  **  NUMBER  OF  MSM  ** 

PRINT  2  LIMES  WITH  PGC. NAME,  FSC,  ICC,  ALT. DAY,  COST,  MAX. MONTH 
THUS 

ITEM  MANE  FSC  ICC  AON.LT  STANDARD. PRICE  MAX. MONTH 

*****************  **  •  •*  **,*«  ** 

PRIMT  1  LIME  THUS 

MSN  MUM  PRO.LT  VIP(l>y)  FIX.  SAFE  QFD 

FOR  MSN  >  1  TO  MAX. MSM 

PRIMT  1  LIME  WITH  MSN,  MSM.NO(MSM),  PLT . DAY ( MSN ) ,  VIP. ITEM(NSM) , 
SAFETY. MONTH (MSM),  QFD(MSM)  THUS 


**  *••****•*  •*  *  **,*  ** 

PRIMT  2  LIMES  THUS 

MSN  MAD  OWRMRP  ALPHA  ARS  PER. RTC . DEMAND 


FOR  MSN  -1  TO  MAX. MSN 
PRIMT  1  LINE  WITH 

MSN,  MAO(NSM),  OWRN(MSM),  ALPHA(MSM),  ARS(MSM), 

PER. RTC. DEMAND (MSM)  THUS 

*«  *•  *  **  *  •*  **  •  *  *•** 
•  •  •  • 


IF  (ICC»"P")  AND  (TRACE24-.TRUE) 

' 'THEN  POI  item  and  print  CTREQ  matrix 
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FOR  MSM  >  1  TO  MAX.NSM  DO 

PRIMT  2  LIME  WITH  MSM,  MSM.NO(MSM),  MAX.MOMTH  THUS 
MSM  **  MUM  *********  CT  REQUIREMEMT  MATRIX  FOR  **  MOMTHS 

MOMTHS:  1 -  2 - 3 - 4 - 5 - 6 

BEGIM  REPORT  PRIMTIMG 

FOR  COL*  1  TO  MAX.MOMTH  IM  GROUPS  OF  6 

PRIMT  1  LIME  WITH  A  GROUP  OF  CTREQ . MAT ( MSM , COL TOTAL )  FIELDS 

THUS 

**  **  **  **  **  ** 

EMD  "REPORT 
LOOP 

ALWAYS  ' 'CTREQ  print 

ALWAYS  ' ' trace  block 

EMD  "routine  PRIMT . SSCF . DATA 


ROUTIME  RECEIVE. PGC. ORDER  GIVEM  ORDER. QTY. MAT,  SCH.MOMTH,  ORDER. MUM 
' 'This  routine  adjusts  stock  and  backorders  when  a  stock  shipment  is 
' '  received  from  suppliers.  It  is  called  by  PLACE . PGC . ORDER .  It 
''  uses  the  XYZ. MATRIX  for  methods  2,  3,  4  and  XYZ.MOMTH  for  method  1. 

DEFINE  ORDER. QTY. MAT  AS  A  INTEGER,  1-DIMENSIOMAL  ARRAY 
DEFINE  I,  ORDER.-QTY,  REQ. BO. MEMBER,  MSM, 

ORDER. MUM,  SCH.MOMTH,  SUM. ORDER  AS  INTEGER  VARIABLES 
RESERVE  ORDER. QTY.MAT(*)  AS  MAX. MSN 
< )  *«*  Determine  delivery  for  this  month  based  on  delivery  method 
FOR  MSM-1  TO  MAX. MSN  DO 
ORDER. QTY-O 
IF  DEL I VERT. OPT* 1 

'  "THEM  Method  for  clumping  is  used 
IF  SCH.MOMTH* XYZ. MONTH (MSN) 

' 'THEM  MSNs  entire  order  is  delivered  in  this  month 
ORDER . QTY*ORDER . QTY . MAT ( MSN ) 

ALWAYS 

ELSE  ' 'methods  2  to  4  with  incremental  deliveries  so  use  vector 
IF  (SCH.MOMTH  <  MAX. DELIVERIES) 

''THEN  not  last  month  so  take  percent  using  item's  vector 
ORDER. QTY-  TRUNC.F( ORDER. QTY. MAT (MSN) 

*  XYZ. MATRIX (XYZ. MONTH (MSM) , SCH.MOMTH) ) 

ELSE  ''last  month, deliver  remaining  order  in  case  of  rounding 
FOR  1*1  TO  MAX. DELIVER! ES-1 

SUM. ORDER  *  SUM. ORDER  TRUMC . F ( ORDER . QTY . MAT ( MSN ) 

•  XTZ.MATRIX(XYZ.MOMTH(MSM),I)) 

ORDER. QTT*OROER. QTY. NAT (MSN)  -  SUM. ORDER 
SUM.ORDER-0 

ALWAYS 

ALWAYS 

IF  TRACE19-.TRUE 

PRINT  1  LIME  WITH  ORDER. MUM,  MSN,  TIME.V,  SCH.MOMTH, 

ORDER. QTY  THUS 

DELIVER  ORDER  *•  MSM  **  TIME.V  **  SCH  MTH  **  QUANTITY  ** 

ALWAYS 
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••  ***  Process  delivers  adjusting  stock,  backorders,  &  onorder  levels 

OIIOROER(NSM)>OMOIU)ER(MSM)  -  ORDER. QTT 

WHILE  (ORDER. QTY  >  0)  AMD  ( REQ . BO . QUEUE ( MSN )  MOT  EMPTY)  DO 

REMOVE  THE  FIRST  REQ. BO. MEMBER  FROM  THE  REQ . BO . QUEUE ( MSM ) 

ORDER. QTY-ORDER. QTY  -  BO. SIZE 
IF  ORDER. QTY  »  0 

' 'THEM  can  fill  this  back  order  totally 

FOR  I>1  TO  BO. TYPE  DO  ''update  Backorder  statistics 
REQ.BO(MSM,I)>REQ.BO(MSM,I)  -  1 
UMlT.BO(MSM,I)=>UMIT.BO(MSM,I)  -  BO. SIZE 
LOOP 

DESTROY  THIS  REQ. BO. MEMBER 

ELSE  ' 'have  partial  requisition  fill  so  update  only  Unit  BOs 
FOR  1*1  TO  BO. TYPE  ''  \/renaining  order  quantity  \/ 

UMlT.BO(MSM,I)»UMIT.BO(MSM,I)  -  (BO. SIZE  +  ORDER. QTY) 
BO. S1ZE>ABS.F( ORDER. QTY)  ''put  partial  fill  back  in  Q 
FILE  THIS  REQ. BO. MEMBER  FIRST  IM  THE  REQ . BO . QUEUE ( MSM ) 

ALWAYS 

LOOP  "while 
IF  ORDER. QTY  >  0 

' 'THEM  have  stock  remaining  after  Backorder  fill  so  add 
STOCK ( MSM )»STOCK( MSM)  +  ORDER. QTY 

ALWAYS 

LOOP 

EMO  "routine  RECEIVED. PGC. ORDER 


ROUTIME  REQ.TO.IMVEMTORY  GIVEM  MSM 

' 'This  routine  updates  on  hand  STOCK  and  if  necessary  updates  MSM 
' '  and  recruit  backorders  (BO)  when  ever  a  requisition/  customer 
*'  demand  is  felt. 

DEFIME  I,  TYPE,  SHORTAGE,  MSM  AS  IMTEGER  VARIABLES 

IF  REQ. SIZE(HSM, .TOTAL)  <>  STOCK(MSM) 

''THEM  reduce  stock  value 

STOCK ( MSN ) -STOCK ( MSN ) -REQ . S I ZE ( MSM , . TOTAL ) 

ELSE  ' 'have  a  Back  order  condition 

SHORTAGE-REQ.SIZE(NSM,. TOTAL)  -  STOCK(NSN) 

STOCK(NSM)-0 

IF  ( (REQ. SIZE(MSM,. TOTAL)  >-  RECRUIT. SIZE. CUTOFF(MSM) ) 

AND  (DOREQ. OPT-. TRUE)) 

' 'THEM  set  index  to  update  recruit  center  Backorder  info. 
TYPE-. RECRUIT 
ELSE 

TYPE-. TOTAL 
ALWAYS 

FOR  I-l  TO  TYPE  DO 

REQ.BO(MSM,I)-REQ.BO(MSN,I)  -t-  1 
UMIT.BO(MSN,I)-UNIT.BO(NSM,l)  -i-  SHORTAGE 
SUN.REQ.BO(MSM,I)-SUN.REQ.BO(MSM, I)  +  1 
SUM. UNIT. BO(MSM,I)-SUM. UNIT. BO(NSM,I)  +  SHORTAGE 
LOOP 
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IF  TRACE4-.TRUE 

PRINT  1  LIRE  WITH  NSR,  SHORTAGE,  SUM.UNIT.BO(NSR,l) , 
SUM.URIT.BO(NSR,2)  THUS 

BACKORDER  HSR  **  SHORTAGE  TOT  UNIT  BO  **  RTC  UNIT  BO  ** 
ALWAYS 

CREATE  A  REQ. BO. MEMBER 
BO. TYPE-TYPE 
BO. SIZE-SHORTAGE 

FILE  REQ.BO.MEMHER  IN  REQ. BO. QUEUE (NSN) 

ALWAYS 

END  ' ' REQ . TO . INVENTORY 


PROCESS  REVIEW. INVENTORY 

''Reviews  the  inventory  every  REVIEW. INTERVAL  days  to  see  if 
''inventory  position  IP  (onorder  +  stock  +  BO)  <  ROP.  If  so  will 
''  activate  PLACE . PGC . ORDER  to  determine  which  NSNs  and  how  much  to  buy 
DEFINE  NSN,  BREACH  AS  INTEGER  VARIABLES 

WAIT  REVIEW. INTERVAL  DAYS 
UNTIL  TIME.V  >  END. OF. SIMULATION  00 
BREACH- . FALSE 
FOR  NSN-1  TO  MAX. MSN, 

UNTIL  BREACH-. TRUE  DO 

IF  (STOCK(MSM)-IOMORDER(NSN)-UNIT.BO(MSN,  .TOTAL) ) 

<-  ROP.QTY(NSN) 

' '  THEM  inventory  position  <  ROP  so  have  breach 
IF  TRACES-. TRUE 

PRINT  3  LINE  WITH  TIME.V,  NSN,  ROP . QTY ( MSN ) , 
STOCK(NSN),  ONOROER(NSM) ,  UNIT. B0( NSN, .TOTAL)  THUS 

BREACH  TIME  NSN  ROP  STOCK  ONORDER  BO 

**  **,*  **  **  ** 

ALWAYS 

BREACH-. TRUE 

ACTIVATE  A  PLACE . PGC . ORDER  NOW 

ALWAYS 

LOOP 

WAIT  REVIEW. INTERVAL  DAYS 
LOOP 

END  ''Process  Review. Inventory 


ROUTINE  RTC . REQUIS IT. CUTOFF 

''This  routine  automatically  determines  the  requisition  size  cutoff. 

''  All  requisition  sizes  above  cutoff  will  be  assumed  to  come  from  the 
' '  Recruit  Training  Centers  and  if  summed  their  percent  demand  would 
''  equal  the  PER. RTC. DEMAND.  This  routine  finds  the  point  in  the 
''  Requisition  distribution  where  those  conditions  are  meet. 

DEFINE  RVALl,  RVAL2,  PROBl,  PR0B2,  RTC. DEMI,  RTC.DEM2  AS  REAL  VARIABLES 
DEFINE  NSN  AS  INTEGER  VARIABLES 
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FOR  MSM-1  TO  MAX. MSN  DO 
RVALl-0 
RVAL2-0 
RTC.OEM1>0 
RTC.OEM2-0 

FOR  EACH  RANO(M.E  IM  REQUISITION. RATIO. F, 

WHILE  (I  -  PER. RTC. DEMAND ( MSN ) )  >  RTC.DEM2  DO 
RVAL1»RVAL2 
PROBl»PROB2 

RVAL2-RVALUE . A( RANDOM . E ) 

PROB2-PROB . A( RANDOM. E ) 

RTC . DEMI »RTC . DEM2 

'*  calculate  the  %  of  demand  at  this  point  in  the  requisit.  dist. 

"  CUM  %  DEMAND  »PRE  CUM  +  (MIDPOINT  IM  REQ.  INTERVAL  *  PDF  ) 

RTC.DEM2  aRTC.DEMl  +  (  (  (RVALl-(-RVAL2)/2)  *  (PROB2-PROB1 ) ) 

LOOP 

*'  found  proper  interval,  now  do  interrpolation 

''  cutoff  =  (%  prob.  of  interval  *  interval  val.  +  bot.  intvl  val)*ARS 
IF  (1-PER.RTC.DEMAMD(NSN} )>0 
''THEM  no  divide  error  for  cutoff  of  zero 

RECRUIT. SIZE. CUTOFF(MSN)>( ( (({ 1-PER. RTC . DEMAMD(MSM )) -RTC . DEMI ) 
/(RTC. 0EM2-RTC. DEMI ) )  *  (RVAL2-RVAL1 ) )  +  RVALl)  *  ARS(NSN} 

IF  PER.RTC.DEMAMO(MSM)=0 
''THEM  correct  for  roundinq  error 
RECRU I T .  S I ZE .  CUTOFF  ( MSN )  »RVAL  2  *  ARS  ( MSN )  -t- 1 
ALWAYS 
ALWAYS 

IF  TRACE21-.TRUE 

PRINT  2  LINE  WITH  PER. RTC. DEMAND ( NSN ) ,  RECRU IT. SIZE. CUTOFF ( NSN ) , 
(1-PER. RTC. OENAMD(MSN) ),  ARS(NSN),  RVALl,  RVAL2,  PROBl,  PROB2, 
RTC. DEMI,  RTC.0EM2  THUS 

%RTC  CUTOFF  %OENO  ARS  RVALl  RVAL2  PROBl  PROB2  %OEMl  %DEM2 

*  **  **  *  *.**«*  *•  •  *«,**  **  **  *  ****  *****  *****  *  **** 

ALWAYS 
LOOP 

END  "RTC. REQUISIT. CUTOFF 


ROUTINE  SET. OPTIONS 

''This  key  routine  is  where  all  options  are  set,  queries  are  asked, 
' '  traces  are  defined  and  set,  and  I/O  units  are  defined 
DEFINE  TIME. VAL,  YEAR  AS  REAL  VARIABLE 
DEFINE  DETAIL. OPT,  GRAPH. AMS,  ANS  AS  INTEGER  VARIABLE 

"  OPEN  UNIT  2  FOR  OUTPUT,  FILE  NAME  IS  "LPTl:" 

' '  USE  UNIT  2  FOR  OUTPUT 

USE  UNIT  5  FOR  INPUT 

•<  ******************  OPTIONS  SET  BELOW  *********************** 


PRINT  9  LINE  THUS 

1)EMTER  ititt  NUMBER  0  TO  5  FOR  THE  PGC  SELECTED  TO  RUN  titttliitttttttt 
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MANE 

SERVICE 

MAX  MSN 

PGC  NUMBER 

0  - 

DEMO  PGC  (MAM'S  SHIRT) 

ARMY 

3 

1672 

1  - 

MAN'S  COAT 

ARMY 

65 

1765 

2  - 

WOfAM'S  SHIRT 

AIR  FORCE 

21 

1671 

3  - 

WCXIAM'S  SKIRT 

ARMY 

80 

1748 

4  - 

MEN'S  SHOE 

ALL 

113 

1505 

5  - 

MEM  &  WCMEM  GLOVES 

ALL 

17 

1834 

6  - 

WANT  TO  ENTER  AN  ALTERNATE  PGC 

NUMBER 

RKAO  ANS 

PLOT.YSCALE^IOOO  '*  scale  factor  for  PGC  net  stock  dynamic  plot 
''TINE.VAL  is  real  time  minutes  to  run  ALL  NSMs  for  a  simulation  year 
SELECT  CASE  AMS 
CASE  0 

TARGET. PGC >167 2 

T1ME.VAL>0.15  *  3  "MIMS/MSM/YR  SIM  *  MAX. MSN 
CASE  1 

TARGET. PGC >17 65 
TIME. VAL>0. 055  *  65 
CASE  2 

PLOT.YSCALE>100 
TARGET. PGC>1671 
TIME. VAL>0. 055  *  21 
CASE  3 

PLOT.YSCALE>100 
TARGET. PGC>174 8 
TIME. VAL>0. 055  *  80 
CASE  4 

TARGET. PGC>1S05 
TIME. VAL>0. 083  *  113 
TRACE20-. FALSE 
PRINT  1  LINE  THUS 

NO  DYNAMIC  PLOT  IS  USED  FOR  SHOES  SINCE  SLOWS  SIMULATION 
CASE  5 

TIME. VAL>0. 089  *  17 
TARGET. PGC> 18 34 
DEFAULT 

PRINT  2  LIME  THUS 

la)  ENTER  THE  PGC  NUMBER  (NOTE:  BOTH  THE  SSCFSIM. DAT/MOD  AND  THE 
MPTO 11. DAT/MOD  FILES  MUST  ALREADY  RAVE  THIS  PGC'S  DATA  WITHIN 
READ  TARGET. PGC 
EMDSELECT 

PRINT  4  LINES  THUS 

2)  ENTER  0  FOR  DEMAND  (CUSTOMER  BEHAVIOR)  EQUAL  TO  MONTHLY  FORECAST 

1  FOR  VARIANCE  IN  DEMAND  BASED  ON  NAD  OF  FORECAST 
>0  FOR  DEMAND  KNOB  (e.9.,0.95  DECREASES  MEAN  DEMAND  BY  5«, 

1.05  INCREASES  THE  MEAN  DEMAND  5%  IN  RELATION  TO  FORECAST) 
READ  DMIMAO.OPT  *'1  means  MAO  used,  0  means  no  MAD  adjusted  demand 

PRINT  5  LIMES  THUS 

3)  ENTER  0  FOR  CONSTANT  PLT  (SUPPLIERS  BEHAVIOR)  EQUALING  THE  SSCF  PLT 

1  FOR  VARIANCE  IN  PLT  WITH  AVERAGE  BEING  2  MONTHS  LATE 
>0  FOR  PLT  SHAPE  KNOB(e.g.,  .5  DECREASES  VARIANCE  SO  AVERAGE 
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IS  1  MOMTH  LATE;  2  INCREASES  VARIANCE  SO  AVERAGE  IS 
APPROXIMATELY  4  MONTHS  LATE) 

READ  PLT.OPT  '*>0  Then  a  draw  from  the  PLT  delay  distrib  *  PLT.OPT 
' '  knob  used,  else  simulated  PLT  >input  PLT  value 

*'1  if  you  want  to  have  requisition  and  recruit  info. 

''  generated,  if  0:False  will  treat  daily  demand  as  the  requisition 
' '  size 

DOREQ.OPT^.TRUE 

POISSON. OPT>. FALSE  ''when  true  will  use  Poisson  distribution  for  DOR 
' '  else  will  keep  ODR  constant  for  each  day  of  month 
NORMAL . OPTa . true  ' 'when  true  will  generate  normally  distributed 

random 

' 'CTREQ/month  based  on  actual  forecasted,  else  1st  max  months 
''will  be  actual  forecasts,  rest  will  be  from  random  normal  draws 

COVARNSN.OPT^. FALSE  ''  when  what  covariances  &  Confid.  interv.  for 
' 'NSN  and  for  total  PGC,  else  only  for  total  PGC 

'  '  TO  GET  C&T  REQUIREMENTS  AS  SIMULATED  DEMANDS  ENTER  0  FOR  NEXT  TWO 
'  '  ENTER  1  FOR  MAPS  ADJUSTMENT  or  0  NO  MAPE  VARIANCE  IN  DEMANDS 

MAPE.OPT^.FALSE  ''1  means  MAPE  used,  0  means  no  mape  adjusted  demand 

BATCH . OPT* . TRUE  ''if  true,  runs  batch  mode  for  several  PGCs 

*  <  ******************  trace  options  set  below  ************************** 

"  in  routine  PRINT . DEMANDS  for  trace  2  fi  3 

TRACE17*.TRUE  "prints  the  values  read  in  from  the  SSCF  file 
TRACES*. TRUE  "prints  EBOs,  fill  rates,  AVBOD,  DEM/YR  for  Total  &  RTCs 
TRACE2*.TRUE  ''prints  annual  forecasts  vs  demands  &  onhand  6  onorder 
TRACE24*. FALSE  ''prints  the  3  years  of  CTREQ  from  the  SSCF 
TRACE7*.TRUE  ''prints  the  1st  5  yr. CTREQ. MAT  matrix  used  in  simulation 
TRACES*  .TRUE  ''prints  PGC  net  stock  histogram 

PRINT  2  LINE  THUS 

4)  ENTER  0  FOR  FINAL  RESULTS 

1  FOR  SHORT  RUN  WITH  PLOT  &  DETAIL  TRACES 
READ  SHORT. OPT 

PRINT  1  LINE  THUS 

5)  ENTER  ****  SIMULATION  LENGTH  IN  YEARS 

READ  YEAR 

IF  SHORT. OPT*. TRUE 

"THEN  ftitfifift  SHORT  RUN:  set  detail  traces  &  graphics  If «»*«## 
TRACES*. TRUE  ''prints  at  time  of  breach  infer  &  order  value 
TRACE19*.TRUB  ''prints  each  delivery  months  order  received 
TRACES*. TRUE  ' 'prints  demand  6  forecast  for  the  month  to  come 
TRACE20*.TRUE  ' 'prints  PGC  NET  STOCK  dynamic  plot 
TRACE. INTERVAL*1*12*30  ''prints  the  summary  end  of  month  stats 
WARMUP. PERIOD*0 

PLOT. INTERVAL* 10  ''accumulates  plot  data  for  net  stock  overtime 
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ELSE  "iiifii  LOHG  RUN:  looking  for  final  results  #ii#|#i#« 

TRACEie^.TRUE  ''prints  the  quick  covar  &  C.I.  over  time 

TRACE? FALSE  ''prints  the  first  CTREQ.MAT  matrix 

TRACE. INTERVAL=( YEAR* 12*30 )/2  ''prints  the  summary  end  of  month 

stats 

WARMUP. PERIOD- 5  *  12  *  .DPM 

PLOT. lMTERVAL-90  ''accumulates  plot  data  for  net  stock  over  time 
ALWAYS 

<•  *****************  MISC  TRACES  ************************************ 
TRACE 18 -.FALSE  ''prints  at  breach  the  PTAO,  PLT+PCP,  DMD/YR  in  units 
TRACES -.FALSE' 'prints  the  current  fi  cummulative  backorders 
TRACE1-. FALSE  ''prints  the  requisit  NSM,time,  size,  &  time  interval 
TRACE4 -. FALSE  ' 'prints  when  BO  occurs  with  NSM  &  totals  for  BO 
TRACE12-.FALSE  ''prints  requisition  BO  queue  when  get  order 
TRACE14-.FALSE  ' 'prints  PLT  stored  values,  runs  PLT  1000  times 
TRACE21-. FALSE  ' 'prints  RTC  cutoff  detail  info  on  prob.  &  intervals 
TRACE15-.FALSE  ' 'COVAR  sampling  information 

TRACE22-. FALSE  ''Matrix  delivery  PLTs,  %PCP,  XYZ  vectors  &  NSMs, 
TRACE23-. FALSE  ''prints  histogram  ranges,  values,  no.  in  sample 

LENGTH . OF . S IMULATION- YEAR* 12*30 

END.OF. SIMULATION-WARMUP. PERIOD  -I-  LENGTH. OF. SIMULATION  ''in  days 
PRINT  5  LINE  THUS 

6)  ENTER  0  MOT  TO  ACCUMULATE  RESULTS  ACROSS  PGCs 

1  TO  DISPLAY  RESULTS  OF  SEVERAL  MODEL  RUNS  WITH  THE  SAME  PGC 
10  TO  DESTROY  EXISTING  RUNS,  &  START  RUNS  WITH  THE  SAME  PGC 

2  TO  ADD  RESULTS  OF  RUMS  OF  DIFFERENT  PGCS  TOGETHER 

20  TO  DESTROY  EXISTING  RUNS,  &  START  RUNS  WITH  DIFFERENT  PGCS 
READ  ADDPGC.OPT 

IF  ( (ADDPGC.OPT- I)  OR  ( ADDPGC.OPT- 10 ) ) 

PRINT  1  LIME  THUS 
6a)  ENTER  5  DIGIT  RUN  ID  NUMBER 
READ  RUN. ID 
ALWAYS 

>  f*******************  detail  queries  SET  BELOW  ********************** 
PRINT  2  LINE  THUS 

7)  ENTER  0  FOR  MO  FURTHER  CHANGE  AMO  RUN 

1  FOR  OPTIONAL  INPUT  DATA  FILES  (QUERIES  8  TO  12) 

READ  DETAIL. OPT 
GRAPH.  AMS— 1 
IF  DETAIL. OPT-. TRUE 

•'THEN  ********  do  DETAIL  QUERY  for  graphs,  files,  phasing 
PRINT  2  LINE  THUS 

8)  ENTER  1  FOR  VARIABLE  SAFETY  LEVEL 

0  FOR  FIXED  SAFETY  LEVEL  [D] 

READ  VSL.OPT 

PRINT  2  LIME  THUS 

9)  ENTER  1  FOR  OPTIONAL  SCF  INPUT  DATA 

0  FOR  STANDARD  SCF  INPUT  DATA  [D] 

READ  MOOIFYDATA.OPT 
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PRINT  2  LIMES  THUS 

10)BMTBR  I  FOR  OPTIONAL  MANAGEMENT  POLICY  TABLE  INPUT  DATA  (MPTOIl) 
0  FOR  STANDARD  MANAGEMENT  POLICY  TABLE  INPUT  DATA  [O] 

READ  MODMPTOll.OPT 

PRINT  2  LINE  THUS 

IDENTER  I  FOR  OPTIONAL  ASSUMPTION  FILE:  M1,M2,T,  OPTIONS,  TRACES 
0  FOR  STANDARD  ASSUMPTIONS  [D] 

READ  NEWASSUMP.OPT 


12) ENTER 


IF  SHORT. OPT=. TRUE 

"THEN  ***  GRAPHIC  TRACE  SET  OPTIONS  *** 

PRINT  4  LIME  THUS 
0  FOR  NO  GRAPHICS 

1  FOR  PGC  NET  STOCK  PLOT  AMD  HISTOGRAM  [D] 

2  FOR  FIRST  3  MSNs  NET  STOCK  PLOT  [D  -  DEMO] 

3  FOR  FIRST  3  NSMs  MET  STOCK  PLOT, BO  &  AVAILABILITY  GRAPHS 

READ  GRAPH. AMS 

IF  ( GRAPH. AMS»0)  OR  ( GRAPH. ANS>1) 

TRACE20- . FALSE  "prints  PGC  MET  STOCK  dynamic  plot 
ALWAYS 

IF  GRAPH. AMS-2 


' 'THEN  below  traces  assumes  first  3  MSNs  graphed 

TRACEIO^.TRUE  "print  NET. STOCK  dynamic  plot  1ST  3  NSMs 
ALWAYS 

IF  GRAPH. AMS»3 

''THEN  below  traces  assumes  first  3  MSNs  graphed 

TRACE11».TRUE  ''prints  the  FILLRATE  meters  graphics 
TRACE13*.TRUE  ''prints  the  EBO  pie  chart  graphics 
TRACE10«.TRUE  ''print  NET. STOCK  dynamic  plot  1ST  3  NSMs 
ALWAYS 
ALWAYS 


ALWAYS 

CALL  PRINT. QUERIES 

PRINT  6  LINES  WITH  (3  *  END. OF. SIMULATION  •  TIME. VAL/(  360*60) )  THUS 

THIS  MODEL  RUN  WILL  TAKE  **.**  HOURS  REAL  TIME  ON  ZENITH-— 
ammmMmmmmMmmmm  MODEL  RUN  SUBMITTED,  TO  ABORT  HIT  CTRL-C  «  — 

••  •**«•*«***  input/  OUTPUT  SPECIFICATIONS  ************ 

IF  BATCH. OPT-. TRUE 

'"THEM  batch  mode:  runs  several  PGCs  (see  ansi,  ans2,  batchrun  files) 
OPEN  UNIT  1  FOR  OUTPUT 

ELSE  ''  Standard  run  with  query's  interactive 

OPEN  UNIT  1  FOR  OUTPUT,  FILE  NAME  IS  ''C:\SIM\OLA\DLAOUT.DAT'* 
ALWAYS 

USE  UNIT  1  FOR  OUTPUT 

IF  TARGET. PGC -1672 
''THEM  use  sample  input  file 
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IF  MOOIFYDATA.OPT>.TRUE 

OPEN  UNIT  4  FOR  IMPUT,  FILE  NAME  IS  "C:\SIM\OLA\DEMOPGC.MOD" 
ELSE 

OPEN  UNIT  4  FOR  INPUT,  FILE  NAME  IS  ”C:\S1N\OLA\OEMOPGC.OAT” 
ALWAYS 

IF  (GRAPH. ANS<0)  AND  (SHORT. OPT  ^.TRUE) 

' 'THEN  no  detail  selection  and  using  DEMOPGC  so  set  MSN  plot 
TRACE20>. FALSE  ' 'prints  PGC  MET  STOCK  dynaunic  plot 
TRACE10>.TRUE  "print  MET. STOCK  dynamic  plot  1ST  3  NSMs 
ALWAYS 
ELSE 

IF  MODIFYDATA.OPT^.TRUE 

OPEN  UNIT  4  FOR  INPUT,  FILE  NAME  IS  "C : XSIMXdLAXSSCFSIM.MOO" 
ELSE 

OPEN  UNIT  4  FOR  INPUT,  FILE  NAME  IS  "C : \SIM\dLA\SSCFSIM. DAT" 
ALWAYS 

ALWAYS 

IF  NEWASSUMP.OPT^.TRUE 

OPEN  UNIT  3  FOR  INPUT,  FILE  NAME  IS  "C:\SIM\DLA\ASSUMP.MOO" 

ALWAYS 

' '  matrix  delivery  schedule  info,  and  first  delivery  PLT 
I F  MODMPTO 1 1 . OPT= . TRUE 

OPEN  UNIT  11  FOR  INPUT,  FILE  NAME  IS  "C:\SIM\DLA\MPT011.MOD" 

ELSE 

OPEN  UNIT  11  FOR  INPUT,  PILE  NAME  IS  "C; \SIM\DLA\MPT011.DAT" 
ALWAYS 

"  MOTE:  UNIT  12  will  be  OPEMed  in  the  "INPUT. VSL"  routine. 

END  ''ROUTINE  OPTIONS 


PROCESS  SET. SIMULATED. DOR 

' 'This  process  updates  monthly  DDR  for  the  simulation.  First  converts 
''the  forecast  value  to  simulated  monthly  demand  via  MAPE,  MAO,  and 
' 'demand  KNOB  factors  if  activated  and  then  divides  the  monthly  value 
''(30  days/demand  interval)  to  get  a  daily  demand  rate  (DDR).  Mote 
''  if  demand. interval  >  1  could  be  demand  for  2,  10,  15  days,  whatever. 
DEFINE  MONTH,NSN.I  AS  INTEGER  VARIABLE 
DEFINE  DDR. TEMP  AS  REAL  VARIABLE 

MONTHLY. MAPE>1  "set  to  1  in  case  no  MAPE  option 
UNTIL  TIME.V  >-  END. OF. SIMULATION 
DO 

AT.MONTH>AT.MOMTB  +  1 
IF  ICC«"P" 

' '  THEN  calculate  month  index  for  CTREQ.MAT 

MONTH ■TRUMC.F( TIME. V/.DPM)  +  1  ''local  independent  variable 
MONTH-  MOO. F( MONTH, CTREQ. PERIOD) 

IF  MONTH  -  0 

MOMTH-CTREQ . PERIOD 
ALWAYS 
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ALWAYS 

FOR  NSM.I>1  TO  MAX.NSM  DO 
IP  ICC  ■  "P" 

FORECAST.MTH(MSM.I)a  CTREQ. MAT (HSN. I, NORTH, .TOTAL) 

+  (QFD(NSR.I}/3) 

ELSE 

FORECAST . MTH ( NSN . I ) -  ( QFD( MSM . I ) /3 ) 

ALWAYS 

IF  ( NAPE. OPT>. TRUE)  ARD  (RSR.I>1) 

' 'TBER  draw  1  MAPS  for  all  RSRs  in  the  PGC 
MONTHLY . MAPEaDEMAND . NAPE . F 
ALWAYS 

IF  OMDMAO.OPT  <>  .FALSE 
' 'THEN  draw  a  NSN  specific  variance  in  demand 
IF  VIP. ITEM(NSN.I)». TRUE 

''THEN  MAO  already  monthly  value  &  multiply  by  1.25  to 
' '  convert  MAD  to  stand,  deviation 

DOR . TEMP^NORMAL . F ( { FORECAST . NTH ( NSN . I ) *  OMOMAD . OPT ) , 
(1.25*MAD(NSN.I)),6)  "stnd.dev. 

ELSE  ' '  MAD  quarterly  value  *  sum  deltas/4  so  to  get 
''  monthly  value  divide  by  SQRT  (3). 

*'  then  multiply  by  1.25  to  get  S.D.  or  1 . 25/sqrt3=. 7217 
DOR . TEMP-NORMAL . F ( ( FORECAST . MTH ( MSN . I ) *  DMDMAD . OPT ) , 
(0.7217  *  MAO(MSM.I)),6)  "stand,  dev. 

ALWAYS 

IF  DOR. TEMP  <1  ''make  sure  no  negitive  demands 
OOR.TENP*! 

ALWAYS 

ELSE 

DOR. TENP-FORECAST .MTB(MSM . I ) 

ALWAYS 

'  '  adjustments:  \/  adjust  for  mape  \/  \/  monthly  to  daily  DDR\/ 

DDR(NSM. I)»(00R.TEMP/M0MTHLY.MAPE)/  ( .DPM/DEMAMD. INTERVAL) 

IF  TRACE8>.TRUE 

PRINT  1  LINE  WITH  NSN. I,  AT. MONTH,  TIME.V, 

DOR(MSN. I )*( .OPN/DEMAMD. INTERVAL) ,  FORECAST . MTH ( MSN . I )  THUS 
NSN  **  MONTH  **  TIME.V  **  DEMAND-MTH  **.*  FORCTS-MTH  ** 

ALWAYS 

LOOP 

WAIT  .0PM  DAYS 
LOOP 

END  "SET. SIMULATED. DDR 


PROCESS  SIMULATION. RUN 

' 'The  general  structure  of  the  simulation  and  starting  point  for  all 
''  processes. 

DEFINE  NSN,  ANS  AS  INTEGER  VARIABLES 

ACTIVATE  A  WARMUP. RESET  IN  0  DAYS 
IF  ICC  *  "P" 

' 'THEN  do  CT  requirements  matrix  for  POI  item 
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ACTIVATE  A  UPDATE . CTREQ . MAT  IM  0  DAYS 
ALWAYS 

ACTIVATE  A  CCMPUTE .  ROP .  PCP  IM  0  DATS 

WAIT  0  DATS  ' '  lets  COMPUTE. ROP.PCP  be  activated  &  computes  ROP 
'  '  Set  initial  stock  levels 
FOR  MSN  >  1  TO  MAX. MSN 

STOCK (MSM ) »ROP . QTY ( NSM ) 

CALL  PRINT. ASSUMPTIONS 

ACTIVATE  A  SET. SIMULATED. DDR  IN  0  DAYS 
ACTIVATE  A  REVIEW. INVENTORY  IN  0  DAYS 

' '  next  2  processes  all  wait  a  warm  up  period  before  starting 
ACTIVATE  A  COVAR. SAMPLING  IN  0  DAYS 
IF  TRACE16a.TRUE 

ACTIVATE  A  PRINT. QUICK. COVAR  IN  0  DAYS 
ALWAYS 

FOR  NSN-1  TO  MAX.NSN  DO 

ACTIVATE  A  DEMAND . GENERATOR  GIVEN  MSN  IN  0  DAYS 
LOOP 

PRINT  5  LINE  THUS 


aaiaavsaaaiaiaaasa 


THE  SIMULATION  OVER  TINE 


ACTIVATE  A  PRINT. LEVELS  IN  WARMUP. PERIOD  DAYS 
ACTIVATE  A  PRINT . DEMANDS  IN  WARMUP. PERIOD  DAYS 

ACTIVATE  A  GET . PLOT . DATA  IN  0  DAYS  "  wait  a  warmup  period  first 

WAIT  END. OF. SIMULATION  DAYS 

CALL  PRINT. PGCSTATS 

CALL  PLOT.ATEND 

AMS^AMS  ''removes  warning 

PRINT  1  LINE  THUS 

EXIT  MODEL  RUN,  ENTER  INTEGER  [RETURN] 

READ  AMS 
STOP 

END  "process  SIMULATION. RUN 


ROUTINE  SUM. FORECAST. OVER. TINE  GIVEN  MSN  AND* PERIOD  YIELDING  FORECAST 
' 'This  routine  sums  the  CT  POI  and  QFD  requirements  over  the  given  period 
"  (  TIME.V  to  TINE.V  +  PERIOD)  to  get  a  total  FORECAST.  The  PERIOD  is 
'*  in  months  or  month  fractions,  a  real  number,  and  is  used  to  sum  PCP, 

' '  Safety  level,  ROP,  MIN. PC,  values.  With  POI  items,  this  routine 
' '  can  some  8  years  of  monthly  data,  however  for  non  POI  items  the 
''  monthly  demand  does  not  chang  over  time  but  is  QFD/3. 

DEFINE  SUM. QFD,  PERIOD,  SUM.CTREQ,  FORECAST  AS  REAL  VARIABLES 
DEFINE  AT. MONTH,  MONTH,  NSN  AS  INTEGER  VARIABLES 

' '  Sum  QFD  over  time  PERIOD  in  months 
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SlIM.QFD  >  PERIOD  *  ( QFD ( RSM ) /3 ) 


•  I  ********  00  POI  requirement  sum  *************************** 

IF  ICC  -  "P" 

' '  THEM  POI  item  so  do  CTREQ.MAT  forecasts 
'  '  Since  routine  may  start  in  middle  of  month  and  period  might  also 
'  '  have  a  fraction  of  month  add  two  together. 


f  I 
I  I 


I  I 


AT.MONTH>TRUMC.F(TIME.V/.DPM)  +  1  "local  independent  variable 
every  CTREQ. period  the  data  w/i  CTREQ.mat  will  be  shifted 
forward,  disgarding  used  data  &  entering  new  data  now  required 
for  future  time,  the  following  corrects  AT.MOHTH  for  this  shift 
AT . MONTH-  MOD . F ( AT . MONTH , CTREQ . PERIOD ) 

IF  AT. MONTH  -  0 

AT . MOMTH-CTREQ . PERIOD 
ALWAYS 

PERIOD-PERIOD  +  FRAC.F(TIME.V/.DPM) 

IF  PERIOD  <1.0 


'  'THEM  handle  the  exception  case  since  only  will  be  in  1  month 
SUM . CTREQ-CTREQ . MAT (MSN , AT . MONTH , . TOTAL ) 

*  (PERIOD  '  FRAC.F(TIME.V/.DPM) ) 

ELSE  ' 'handle  standard  summing  case 

CT  REQ  fraction  for  the  remaining  part  of  current  month 

SUM .  CTREQ -CTREQ . MAT ( MSN , AT . MONTH , . TOTAL ) 

*(1-FRAC.F(TIME.V/.DPM) ) 
adding  middle  months  to  CTREQ 

FOR  MONTH-  (AT.MONTH+l)  TO  (AT.MOHTH  +  TRUNC . F ( PERIOD )  -  1) 
SUM. CTREQ-SUM. CTREQ  +  CTREQ . MAT ( MSN , MONTH ,. TOTAL ) 
adding  CT  REQ  fraction  from  last  month  of  period 
MOMTH-AT. MONTH  *  TRUNC. F( PERIOD) 

SUN.  CTREQ-SUM. CTREQ  + 

(CTREQ. MAT (NSM, MONTH, .TOTAL)*  FRAC.F(PERIOO) ) 


ALWAYS 

ALWAYS 


•  I  ******  total  forecast  of  POI  and  QFD  summed  over  time  period  *** 
FORECAST  -  SUM. CTREQ  +  SUM. QFD 

END  "routine  SUM. FORECAST. OVER. TIME 


PROCESS  UPDATE. CTREQ. MAT 

' '  This  process  makes  sure  there  are  enough  future  months  of  POI 
' '  forecasts  so  that  all  levels  (ROP  and  PTAO)  can  be  calculated. 

' '  This  process  determines  the  mean  and  standard  deviation  for  normal 

' '  distribution  from  the  input  CTREQ.MAT.  Also,  Every  CTREQ. period 

' '  this  process  shifts  the  CTREQ  values  a  period  up  in  the  matrix  so 

' '  that  old  values  are  disgarded.  It  then  fills 

' '  in  the  empty  last  period  spots  in  the  matrix  with  newly  generated 
' '  CTREQ  from  the  normal  distribution. 

DEFINE  NSN,  MONTH,  MONTHl  AS  INTEGER  VARIABLES 

PRINT  3  LINE  THUS 
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SUMMARY  OF  MONTHLY  TOTAL  FORECAST  AMD  C&T  36  MONTH  POI  FORECASTS 
MSN  TOTAL  AMF  POI  AMF  POI  STD  %  POI  STD/POI  AMF 
FOR  NSM>1  TO  MAX. MSN  DO 

PRINT  1  LINE  WITH  NSM,  AVE. FORECAST ( MSN ) , 

MEAN. CTREQ( MSN ) ,  STD.CTREQ(NSN) , 

(100*STD.CTREQ(MSM)/MEAM.CTR£Q(MSM) )  THUS 
**  **  **  ** 

LOOP 

IF  NORMAL. OPT>. TRUE 

‘ '  THEN  entire  CTREQ.mat  with  normally  distributed  random  values 
MOMTHlal 

ELSE  "keep  actual  CTREQ  data  for  1st  MAX. MONTHS  &  rest  random  values 
MOMTHl^MAX. MONTH  +  1 
ALWAYS 

"Initialize  CTREQ.MAT 
FOR  NSN-l  TO  MAX. MSN 

FOR  MONTH^MOMTHI  TO  MAX . CTREQ . DIM  DO 
IF  STD. CTREQ (NSN)  >  0 

"THEN  draw  next  random  CTREQ  from  normal  distribution 
CTREQ. MAT (MSN, MONTH, .TOTAL) > 

NORMAL . F ( MEAN . CTREQ ( NSN ) , STD . CTREQ ( MSN ) , 8 ) 

ELSE  "  STD  ^  0  so  no  variance  and  use  the  mean 
CTREQ. MAT (MSN, MONTH, .TOTAL)  »  MEAN . CTREQ ( NSN ) 

ALWAYS 

IF  CTREQ. MAT (MSN, MONTH,. TOTAL)  <  1 
"THEN  to  avoid  divid  errors  &  have  forecast  not  ■  actual,  set 
CTREQ. MAT (NSN, MONTH, .TOTAL)  ■  1  "***  ASSUMPTION  *** 

ALWAYS 

LOOP 

IF  TRACE?-. TRUE 
FOR  NSM-1  TO  MAX. NSN  DO 

PRINT  4  LINES  WITH  NSN,  TIME.V,  AT. MONTH, 

MOD . F ( ( TRUNC . F ( T IME . V/ . DPM ) +1 ) , CTREQ . PERIOD )  THUS 

******"**  CURRENT  CTREQ.MAT  a---— aa-asaasssaasaassBaasssssSBaassasasas 
NSN  **  TIME.V  **.*  END  OF  MCHITH  **  CTREQ  INDEX  ** 

12  3  4  5  6  7  8  9  10  11  12 

BEGIN  REPORT  PRINTING 

FOR  MONTH  -  1  TO  MAX . CTREQ . DIM  IN  GROUPS  OF  12 
PRINT  1  LIME  WITH  A  GROUP  OF  CTREQ. MAT (MSN, MONTH, . TOTAL) 

FIELDS  THUS 


END  ' 'REPORT 
LOOP 
ALWAYS 

UNTIL  TIME.V  >  END. OF. SIMULATION  DO 
WAIT  (CTREQ. PERIOD  *  .DPM)  DAYS 
FOR  NSN  -  1  TO  MAX. NSM  DO 

'  throw  1st  months  away  and  move  up  last  in  months  to  beginning 

FOR  MONTH  -  1  TO  (MAX. CTREQ. DIM  -  CTREQ. PERIOD) 

CTREQ . MAT ( MSN , MONTH , . TOTAL ) ■ 
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CTREQ . MAT ( MSN , ( MONTH+CTREQ . PERIOD ) , . TOTAL ) 
'  '  generate  new  CTREQs  for  months  at  end  of  matrix 

FOR  MOUTH  >  (MAX. CTREQ. DIM-CTREQ.PERlOD+1)  TO  MAX . CTREQ . DIM  DO 
IF  STD. CTREQ (MSH)  >  0 

''THEM  draw  next  random  CTREQ  from  normal  distribution 
CTREQ . MAT ( MSN , MONTH , . TOTAL ) > 

NORMAL. F( MEAN. CTREQ (MSN) ,STD.CTREQ(NSN) , 8 ) 

ELSE  ' '  STD  a  0  SO  no  variance  and  use  the  mean 
CTREQ . MAT ( MSN , MONTH , . TOTAL )  »  MEAN . CTREQ ( NSN ) 

ALWAYS 

IF  CTREQ. MAT (MSN, MONTH, .TOTAL)  <  1 
''THEM  avoid  divid  errors  &  have  forecast  not  -  actual,  set 
CTREQ. MAT (NSN, MONTH, .TOTAL)  »  1  "***  ASSUMPTION  *** 
ALWAYS 
LOOP 
LOOP 

LOOP  ' 'of  until 
END  ' ' UPDATE . CTREQ . MAT 


PROCESS  WARMUP. RESET 

' '  This  process  resets  all  appropriate  statistics  back  to  sero 
' '  once  the  initial  warmup  period  is  over  and  the  transient  effects 
' '  have  apparently  been  washed  out  of  simulation.  This  is  so  the 
'  '  final  statistics  at  end  of  simulation  are  not  effected  by  warmup 
' '  period. 

WAIT  WARMUP. PERIOD  DAYS 
"  CALL  PRINT. ATEND 

PRINT  5  LINES  WITH  TIME.V,  AT. MONTH  THUS 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

END  OF  WARMUP  PERIOD:  RESET  VARIABLES:  TIME.V  AT. MONTH  ** 

FOR  EACH  DEMAND. BO  00 
FOR  EACH  NSN. DETAIL  DO 

RESET  TOTALS  OF  REQ.SIZE(OEMAND. BO, NSN. DETAIL) 

RESET  TOTALS  OF  REQ. BO (DEMAND. BO, MSN. DETAIL) 

RESET  TOTALS  OF  UNIT. BO(OEMAND. BO, NSN. DETAIL) 

RESET  TOTALS  OF  REQ. IMTERVAL(DENAND. BO, MSN. DETAIL) 

LOOP 

LOOP 

' '  prepare  for  divide  by  0  error  after  reset 
FOR  EACH  DEMAND. BO  00 
FOR  EACH  NSN. DETAIL  DO 

SUM .  REQ . BO ( DEMAND . BO , NSN . DETAIL ) > . MINVAL 

SUN .  UNIT . BO( DEMAND . BO, NSN . DETAIL )-. MINVAL 
SUM . REQ . S I ZE ( DEMAND . BO , NSN . DETAI L )>. MINVAL 
NO . REQ . S I Z E ( DEMAND . BO , NSN . DETAI L ) a . MINVAL 

LOOP 


LOOP 


FOR  EACH  NSM. ATTRIBUTES  DO 

RESET  TOTALS  OF  FORECAST. MTB(NSN. ATTRIBUTES) 
RESET  TOTALS  OF  STOCK (NSN. ATTRIBUTES) 

RESET  TOTALS  OF  ONOROER(NSIf .ATTRIBUTES) 

LOOP 

RESET  TOTALS  OF  MONTHLY . RAPE ,  SIM.PLT.OAY 

ORDER. NUMBER-0 

AT.MONTH^O 

' '  CALL  PRINT. ATENO 
END  ' ’ HARMUP . RESET 


ROUTINE  XYZ.PLTS 

' 'This  routine  determines  which  NSN  are  X,  Y,  or  Z  items,  and  based 
' '  on  delivery  method  1  to  4,  the  PLTs  for  each  NSN. 

DEFINE  NSN  AS  INTEGER  VARIABLE 

DEFINE  PERCENT. PCP,  PGC.PCP,  DVQD  AS  REAL  VARIABLE 
RESERVE  XYZ.SUM(*)  AS  3 
PRINT  5  LINE  THUS 

saiaiiiasRaBaaiaasaaaaaaaasaaaaaaaasasiaiaiaBaaaiaaaiaBaBaiaisaisasEaBssssaaxsasiaisaiSssaBS 
aaaaaaaaaaaaaaaa  SIMULATIOH  DATA  DESCRIFTIOH  aaaaaaaaaaaaaaaaaaaaa 
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 


FOR  NSH>I  TO  MAX.NSR  DO 

DVQO-TRUNC . F ( AVE . FORECAST { NSN ) *  3 ) *COST 
IF  DVQD  <-  Ml 

' 'THEN  DVQD  set  for  a  36  month  procurement  cycle 
PCP.NONTH(NSN)a36 
ELSE 

IF  (DVQD  >  Ml)  AMD  (DVQD  <>  M2) 

' 'THEM  between  Ml  &  M2  so  use  Wilson  Lot  Size  equation 
PROCURE  CYCLE  (MONTHS)-  EOQ  /  MONTHLY  DEMAND 
PCP. MONTH(NSN)-TRUNC.F( (3*T)* (DVQD** (-0.5) ) ) 

ELSE  ''greater  than  M2  or  use  6  month  PCP 
PCP. MONTH (NSN) -6 
ALWAYS 
ALWAYS 
LOOP 

FOR  NSN-  1  TO  MAX. NSN  ''  sum  to  use  as  average  order  quantity 
PGC.PCP-PGC.PCP  ( AVE.  FORECAST  (MSN)*  PCP.  MONTH  ( NSM ) ) 

FOR  NSM  -  1  TO  MAX. MSN  DO 

PERCENT. PCP  -  (100  *  ( AVE. FORECAST (NSN)* PCP. MONTH ( NSN )) /PGC.PCP) 
IF  (PERCENT. PCP  >-  X. PERCENT) 

' ' THEN  X  i tern 

XYZ.MOMTH(NSN)-l 
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ELSE 

IF  (PERCEMT.PCP  <>  Z. PERCENT ) 

' 'THEN  Z  item 

XyZ.K0NTH(NSN)-3 
ELSE  ' 'Y  item 

XYZ. MONTH (NSN)»2 

ALWAYS 

ALWAYS 

XYZ. SUM (XYZ. MONTH ( NSN ) )  »  X YZ. SUM (XYZ. MONTH ( NSN )  )  PERCENT. PCP 

SELECT  CASE  DELIVERY. OPT 

CASE  1  >  >************  method  1  DELIVERY  OPTION  ************ 
IF  (PERCENT. PCP  »  X. PERCENT) 

' 'THEN  X  item 

PLT.DAY(NSN}*  FIRST. DELIVERY  + 

( (1/3) *MAX. DELIVERIES  *  .DPM) 

ELSE 

IF  (PERCEMT.PCP  <>  Z. PERCENT) 

' 'THEM  Z  item 

PLT.DAY(NSN)»  FIRST. DELIVERY  -f 

( (5/6) •MAX. DELIVERIES  *  .DPM) 

ELSE  ' 'Y  item 

PLT.OAY(MSN)>  FIRST. DELIVERY  + 

( (2/3) •MAX. DELIVERIES  •  .DPM) 

ALWAYS 

ALWAYS 

''store  for  use  in  matrix  scheduling  since  method  1  uses 
''clumping  not  incremental  (w/  1  of  3  vector  of  percents) 
XYZ . MONTH (NSN ) -PERCENT . PCP 

CASE  2  "************  METHOD  2  DELIVERY  OPTION  ************ 
IF  (PERCEMT.PCP  >-  X. PERCENT) 

' 'THEN  X  item 

PLT.DAy(NSM)-  FIRST. DELIVERY  + 

((1/2) •MAX. DELIVERIES  *  .DPM) 

ELSE 

IF  (PERCEMT.PCP  <«  Z. PERCENT) 

' 'THEM  Z  item 

PLT.DAy(MSM)-  FIRST. DELIVERY  + 

(( 5/6 )*MAX. DELIVERIES  •  .DPM) 

ELSE  "Y  item 

PLT.DAY(MSN)-  FIRST. DELIVERY 

((2/3) •MAX. DELIVERIES  •  .DPM) 

ALWAYS 

ALWAYS 

CASE  3  "************  method  3  DELIVERY  OPTION  ************ 
IF  (PERCEMT.PCP  >-  X. PERCENT) 

' 'THEN  X  item 

PLT.OAT(MSM)-  FIRST. DELIVERY 

(( 1/2) *MAX. DELIVERIES  *  .DPM) 

ELSE 

IF  (PERCEMT.PCP  <-  Z. PERCENT) 

' 'THEN  Z  item 

PLT.DAY(MSN)-  FIRST . DELIVERY  + 
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{{ 2/3 )*MAX. DELIVERIES  *  .DPM) 

ELSE  ' 'y  item 

PLT.DAy(NSH)“  PIRST.DELIVERV  + 

({ 1/2 )*MAX. DELIVERIES  *  .DPM) 

ALWAYS 

ALWAYS 

CASE  4  '•************  method  4  DELIVERY  OPTIOM  ************ 
IF  (PERCEMT.PCP  >=  X. PERCENT) 

'  'THEM  X  item 

PLT.DAY(HSM)»  FIRST. DELIVERY  + 

(( 1/2 )*MAX. DELIVERIES  *  .DPM) 

ELSE 

IP  (PERCEMT.PCP  <-  2 -PERCENT) 

• 'THEM  2  item 

PLT.DAY{HSM)=*  FIRST. DELIVERY  + 

(( 5/6 )*MAX. DELIVERIES  *  .DPM) 

ELSE  "  y  i tern 

PLT.DAY(NSM)=  FIRST. DELIVERY  + 

(( 1/2 )*MAX. DELIVERIES  *  .DPM) 

ALWAYS 

ALWAYS 

EMDSELECT 

LOOP 

' '  USE  UNIT  6  FOR  OUTPUT 
IF  TRACE22a.TRUE 

PRINT  2  LIMES  WITH  PGC.PCP,  XYZ.SUM(l),  XYZ .SUM( 2) , XYZ . SUM( 3 ) , 
FIRST. DELIVERY  THUS 

PGC  TOTAL  PCP  **  X  %  **.*  Y  %  **•*  Z  %  **•*  1ST  DEL  ** 

MSN  PCP  PLT  PERCEMT.PCP  XYZ. MONTH  AVE.FOR  DVQD 

FOR  NSN-1  TO  MAX. MSN  DO 

PRINT  1  LINE  WITH  NSM,  PCP. MONTH ( MSN ) ,  PLT . DAY ( MSN ) , 

(100  *  ( AVE. FORECAST (MSN)* PCP. MONTH ( MSN )) /PGC. PCP) , 

XYZ . MONTH ( MSN ) ,  AVE . FORECAST ( NSN ) , 

( TRUNC . F ( AVE . FORECAST ( NSN ) *  3 ) *COST )  THUS 
«*  **.*  **.*  **  **.*  **,* 

LOOP 

ALWAYS 

END  "routine  XYZ.PLTS 
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CHAPTER  3 


THE  CAPTURE  PROGRAM 


The  DLA  data  capture  program  is  displayed  in  this  chapter.  The  capture 
program  reads  a  downloaded  Standard  Automated  Materiel  Management  System 
(SAMMS)  file,  extracts  the  information  required  by  the  simulation,  and  stores  it  on 
the  PC  hard  disk.  The  program  resides  in  the  subdirectory  C;\SIM\DLADATA  on  the 
PC’s  hard  disk.  The  chapter  contains  four  sections:  the  outline  flow  of  the  program, 
the  list  of  all  procedure’.s,  a  short  description  of  each  procedure,  and  the  program 
source  code. 

FLOW  OUTLINE  OF  PROGRAM 

PREAMBLE 

MAIN 

INITIAL. MEW. MSM 
IMITIAL.NEW.PGC 
PRINT. DEMAND. INFO 
PRINT. LIME. SEARCH 
PRINT. OUTPUT. PILE 
READ. HEADER. PAGE 
STORE. MSN. DATA 
TRLR . E . READ . DEMAND 
TRLR.U.READ.RQMT 

LISTING  OF  PROCEDURES 

PREAMBLE 

MAIN 

INITIAL. NEW. NSN 
IMITIAL.NEW.PGC 
PRINT . DEMAND . INFO 
PRINT. LIME. SEARCH 
PRINT . OUTPUT .FILE 
READ . HEADER . PAGE 
STORE. MSN. DATA 
TRLR . E . READ . DEMAND 
TRLR.U.READ.RQMT 

DESCRIPTION  OF  PROCEDURES 

PREAMBLE 

''This  program  reads  the  Special  Supply  Control  File  raw  data  copied 
' '  from  tape  and  extracts  the  required  information  to  run  the  CAT 
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*'  Simulation  Model.  The  program  then  saves  this  data  in  the  output 
'  '  file  that  will  be  directly  read  by  the  model. 

"  IMPUT  FILE:  DLATAPE.XX 
"  OUTPUT  FILE:  DLAIMPUT.OAT 


MAIN 

The  main  routine  has  the  basic  outline  for  entire  model  below  are 
key  assumptions:  (see  PRINT. OUTPUT. FILE  for  general  description) 


THIS  PROGRAM  CAPTURES  THE  DATA  FROM  THE  SPECIAL  SUPPLY  CONTROL 
FILE  (SSCF)  REPORT.  THE  SSCF  REPORT  FILE  MUST  BE  STORED  IN: 

C:\SIM\0LADATA\SSCFTAPE 
FOR  THE  CAPTURE  PROGRAM  TO  RUN  PROPERLY 
THE  OUTPUT  OF  THIS  PROGRAM  GOES  DIRECTLY  TO  THE  SIMULATION 
MODEL  DIRECTORY,  TO  BE  INCORPORATED  AUTOMATICALLY  WHEN  THE 
SIMULATION  RUNS.  THAT  OUTPUT  FILE  IS: 

C :  \S  IM\0LA\SSCFS IM . OAT 
IMPORTANT  MOTE:  <====== 

RUNNING  THIS  PROGRAM  WILL  OVERWRITE  THE  EXISTING  DATA  IN  THE 
SSCFSIM.OAT  FILE  WITH  MEW  DATA.  IF  YOU  HAVE  NOT  BACKED  UP  THE 
CURRENT  CONTENTS  OF  SSCFSIM.OAT  OR  WANT  TO  READ  CHAPTER  2  OF 
THE  DOCUMENTATION  FOR  FURTHER  EXPLANATION 
PRESS  CTRL-C  (to  stop  run) 


*******************  OPTIONS  OF  MODEL  **************************** 
Make  sure  you  choose  either  option  before  running  model 
TEST. OPT*. TRUE  ''If  true  will  use  test  input  and  output  data  files 
' '  else  will  use  actual,  full  blown  data  files 
SIMOUTPUT. OPT*. TRUE  ''If  true  produces  output  file  for  simulation; 

' '  false  produces  data  analysis  output 

INITIAL. MEW. NSM 

This  routine  reinitializes  certain  cummulative  counters  after  - 
each  NSN  has  been  completely  processed 

INITIAL. NEW. PGC 

This  routine  initializes  all  cummulative  variables  after  before 
each  MSN  is  read. 

PRINT. DEMAND. INFO 

This  routine  prints  the  demand  info  from  trailer  E  and  other 
comparison  stats:  PGM  vs  QFD,  for  the  data  analysis  report. 

Also  trace  5  and  trace  7. 

PRINT. LINE. SEARCH 

This  routine  simply  prints  the  char,  string  in  the  intermediate 
searchs  for  the  next  specific  line  location  for  trace  4 

PRINT. OUTPUT. FILE 

This  routine  prints  the  actual  data  required  by  the  CST  model 
Below  are  the  NSN  required  input  for  the  C&T  model.  Most  values  come 
directly  off  the  Special  Supply  Control  File  (SSCF)  report  and  are 
given  the  identical  labels  as  appears  in  the  report. 
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1)  Most  variables  come  directly  from  the  Header  page  and  captured  by 
READ. HEADER. PAGE  routine. 

2)  ARS  (average  requisition  sise)  is  total  demands/total  frequency 
and  calculated  in  routine  TRLR.E.READ.OEMAMD  from  the  Trailer  E 
of  SSCP  data. 

3)  For  Program  Oriented  Items  (POI)  additional  data  are  captured: 
PER.RTC.DEMAMD  (the  percent  of  RTC  PIC  requirement  demands  to 
total  HSM  demand).  MAX. MONTH  is  the  number  of  actual  months  of 
Program  Requirement  forecast  since  forecast  can  start  at  any 
quarter  in  the  current  fiscal  year  &  then  go  to  additional  years. 
CTREQ.MAT  are  the  actual  monthly  C&T  Requirements  forecasts  sum 
across  all  PICs  for  each  MSN.  ALL  of  this  info  is  obtained  in 
routine  TRLR . U . READ . RQMT  (from  Trailer  U  of  SSCF) 

4)  MAX. MSN  is  the  total  number  of  MSMs  in  the  PGC  calculated  in  Main 

READ. HEADER. PAGE 

This  routine  reads  the  header  page  on  from  the  tape  file  of  the 
special  supply  control  file 
ASSUMPTIONS : 

1)  COST  &  STAND  PRICES,  SYSTEM  SS  &  DS,  MAD,  ASFE  ARE  <  10  MILLION 
2}  QFD,  NEWQFD,  (12  MTH,  PAST  MTH,  PAST  QTR)  PGM  RQMT  ARE  <  100  MILLION 

STORE. NSN. DATA 

Stores  the  MSN  data  for  later  final  printing  once  Max.Nsn  is  known 
TRLR . E . READ . DEMAND 

This  routine  reads  the  trailer  E  that  contains  historic  demands 
and  their  frequency  for  the  last  4  quarters.  The  routine  sums 
each  quarters  demands  separately.  It  also  takes  the  total 
demands  and  divides  by  the  total  frequency  to  get  average 
requisition  sise.  Returns  are  not  part  of  the  calculations  and 
nonrecurring,  high  demand  items  have  only  applicable  percent 
in  the  calculation  of  total  demands  and  ARS. 

TRLR. U. READ. RQMT 

This  routine  reads  the  3  years  of  monthly  C&T  Program  Requirement 
data  from  trailer  U  of  the  Special  SCF  report  for  POI  items.  It 
calculates  the  number  of  months  of  requirements  or  MAX. MONTH. 

Finally,  it  calculates  the  percent  of  recruit  training  center 
demand  (PER.RTC.DEMAMD)  by  dividing  the  recruit  PICs  (last  2  letters 
of  PIC  ■  AA,  AW,  GB)  requirement  over  the  total  NSNs  requirement 
from  all  the  PICS. 

SOURCE  CODE 

PREAMBLE 

' 'This  program  reads  the  Special  Supply  Control  File  raw  data  copied 
'  '  from  tape  and  extracts  the  required  information  to  run  the  C&T 
''  Simulation  Model.  The  program  then  saves  this  data  in  the  output 
*'  file  that  will  be  directly  read  by  the  model. 

"  INPUT  FILE:  OLATAPE.XX 
"  OUTPUT  FILE:  DLAINPUT.DAT 
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NORMALLY  MODE  IS  UMDEFIMEO 

PERMANENT  ENTITIES  ''stored  variables  for  final  print 
EVERY  NSN. ATTRIBUTES  HAS 
A  NSN. NO,  '  '  NUN  number 

A  PLT.OAY,  ' '  production  lead  time  in  days 
A  VIP. ITEM,  ''VIP  items  reviewed  every  month  vs  quarter 
A  S AFETY . MONTH ,  ''fixed  safety  level  in  months 

A  QFDP,  ' 'quarterly  forecasts 
A  NEW.QFO,  ' '  Mew  QFO 

A  MAOP,  ' 'MAO,  mean  absolute  deviation  in  forecast  demands 
A  OMRMRPP,  ' 'OWRMRP  war  reserves 
A  ALPHAP,  ' 'alpha  factor 

A  ARSP,  ' '  ARS  or  average  requisition  sixe  for  nsn 
A  PER.RTC.DEMANDP  ' '  percent  of  RTC  demand  vs  total  demand 

DEFINE  VIP. ITEM,  PLT.OAY,  OWRMRPP 
AS  INTEGER  VARIABLES 

DEFINE  QFOP,  NEW.QFD,  MAOP,  ALPHAP,  ARSP,  PER.RTC.DEMANDP, 

SAFETY. MONTH  AS  REAL  VARIABLES 
DEFINE  NSN. NO  AS  TEXT  VARIABLE 

DEFINE  NIIN.T,  ITEM. NAME. T,  PROC.CYC.T,  DVC.T,  ICC.T,  VIP.IND.T, 
OT.IND.T,  TRLR.T,  PIC.T, 

NAME,  ICC  ' 'PGC  Stored  variable  for  final  print 
AS  TEXT  VARIABLES 

DEFINE  FSC,  AOM.LT,  PRO.LT,  TSCC,  PROC. CYCLE, 

SL.E. FACTOR,  PROC. GR. CD,  QFD,  NEW. ITEM. QFD,  PGM.RQMT. 12.MTH, 

PGM. RQMT. PAST. MTH,  PGM.RQMT. PAST. QTR,  OWRMRP,  TRACEl,  TRACE2, 
TRACES,  TRACE4,  TRACES,  TRACES,  TRACE?,  TRACES,  MONTH,  YEAR, 

MAX. MONTH,  MAX. NSN,  PGC. COUNT,  OLD. PGC,  START. MONTH, 

FSCP,  ALT. DAY,  PGC. NO,  MAX.MONTHP  ''PGC  Stored  var.  for  final  print 

AS  INTEGER  VARIABLES 

DEFINE  FIX. SAFE,  ANROP,  ALPHA,  RETURNS,  SUN. FREQ,  PER . RTC . DEMAND , 
PGC.QD,  PGC.QRQMT 

AS  REAL  VARIABLES 

DEFINE  COST. PRICE,  STANDARD. PRICE,  SYSTEM.SS,  SYSTEM. DS,  MAO, 
ALG.SUM.FE,  ARS, 

COST 

AS  DOUBLE  VARIABLES 

DEFINE  SUM.QO  AS  AN  REAL,  1-DIMENSIONAL  ARRAY 
DEFINE  CTREQ.MAT  AS  AN  INTEGER,  1-DIMENSIONAL  ARRAY 

DEFINE  CTREQ.MAT. HOLD  AS  AN  INTEGER,  2-OIMENSIONAL  ARRAY  "holds  PGC 
DEFINE  .TRUE  TO  MEAN  1 
DEFINE  .FALSE  TO  MEAN  0 
DEFINE  .MAX. DIM  TO  MEAN  200 
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END  "PREAMBLE 


MAIM 

DEFINE  AMS,  S IMOUTPUT . OPT ,  TEST. OPT  AS  INTEGER  VARIABLE 
AMS>1 

PRINT  21  LIMES  THUS 


THIS  PROGRAM  CAPTURES  THE  DATA  FROM  THE  SPECIAL  SUPPLY  CONTROL 
FILE  (SSCF)  REPORT.  THE  SSCF  REPORT  FILE  MUST  BE  STORED  IN: 

C : \SIM\DLADATA\SSCFTAPE 
FOR  THE  CAPTURE  PROGRAM  TO  RUN  PROPERLY 

THE  OUTPUT  OF  THIS  PROGRAM  GOES  DIRECTLY  TO  THE  SIMULATION 
MODEL  DIRECTORY,  TO  BE  INCORPORATED  AUTOMATICALLY  WHEN  THE 
SIMULATION  RUNS.  THAT  OUTPUT  FILE  IS: 

C : \S IN\0LA\SSCFS IM . OAT 

important  NOTE;  <»»«»=» 

RUNNING  THIS  PROGRAM  WILL  OVERWRITE  THE  EXISTING  DATA  IN  THE 
SSCFSIM.OAT  FILE  WITH  NEW  DATA.  IF  YOU  HAVE  NOT  BACKED  UP  THE 
CURRENT  CONTENTS  OF  SSCFSIM.DAT  OR  WANT  TO  READ  CHAPTER  2  OF 
THE  DOCUMENTATION  FOR  FURTHER  EXPLANATION 

PRESS :  CTRL-C 

(TO  STOP  THIS  CAPTURE  PROGRAM  ) 


PRINT  1  LINE  THUS 
ENTER  ANT  NUMBER  TO  CONTINUE  RUM 
READ  AMS 

********************************************************************** 
•••*****«•••*****«******  OPTIONS  OP  MODEL  **************************** 
' '  Make  sure  you  choose  either  option  before  running  model 

TEST. OPT>. TRUE  "If  true  will  use  test  input  and  output  data  files 
' '  else  will  use  actual,  full  blown  data  files 
S IMOUTPUT. OPT ".TRUE  "If  true  produces  output  file  for  simulation; 

"  false  produces  data  analysis  output 

TRACEl". FALSE  ' 'Print  header  page  output 
TRACE2". FALSE  ''Print  Trailer  E,  historic  demand  output 
TRACES" . FALSE  ' 'Print  Trailer  E  summary  results 
TRACE3", FALSE  ' 'Print  Trailer  U,  Program  Requirement  Matrix 
TRACES". FALSE  ' 'Print  Trailer  U,  summary  results 
TRACB4". FALSE  ' 'Print  intermediate  searching  between  lines 
''below  traces  set  later 

TRACE?". FALSE  ' 'Prints  the  useful  stats  not  needed  for  simulation 
TRACES". FALSE  ' 'Prints  output  file  for  simulation 


3-5 


I  I***************  input  piles  ***************************** 

IP  TEST. OPT*. TRUE 

'•  THEM  Sample  set  of  NSNs  with  3  PGCs 

OPEN  UNIT  1  POR  INPUT,  PILE  NAME  IS  "C:\SIM\0LADATA\DLATAPE.QPD" 
ELSE  ' '  **  Pull  SSCP  tape  of  10  megs 
"  OPEN  UNIT  1  POR  INPUT,  PILE  NAME  IS  "D:\DLA0ATA\SSCPTAPE" 

OPEN  UNIT  1  POR  INPUT,  PILE  NAME  IS  "C : XSIMXDLADATAXSSCPTAPE* 
ALWAYS 

USE  UNIT  1  POR  INPUT 
IP  SIMOUTPUT.OPT  *  .TRUE 

''THEM  produces  file  for  simulation  model  run  (full  or  sample) 

IP  TEST. OPT  =  .TRUE 

OPEN  UNIT  2  POR  OUTPUT,  PILE  NAME  IS  "C : XSIMXDLADATAXINSPGC . OAT" 
ELSE 

"  OPEN  UNIT  2  POR  OUTPUT,  PILE  NAME  IS  "D: Xd1<ADATAXSSCFSIM. OAT" 

OPEN  UNIT  2  POR  OUTPUT,  PILE  NAME  IS  ”C : XSIMX0LA\SSCPSIM. OAT" 
ALWAYS 

TRACE?*. PALSE 
TRACES*. TRUE 

ELSE  ' '  produce  data  analysis  file 
OPEN  UNIT  2  POR  OUTPUT,  PILE  NAME  IS  "O: XOLAOATAXaMALYSIS . OAT" 

TRACE? «. TRUE 
TRACES*. FALSE 
ALWAYS 

USE  UNIT  2  POR  OUTPUT 
RESERVE  SUM.QD("}  AS  4 
RESERVE  CTREQ.MAT  (")  AS  36 

RESERVE  CTREQ.MAT.HOLO(",")  AS  .MAX.OIM  BY  36 
CREATE  EVERY  MSN. ATTRIBUTES  (.MAX.OIM) 

OLO.PGC*99999 

WHILE  (EOP.V*0)  OO 

"  WHILE  (MAX.MSM<*2)  AMD  (EOP.V*0)  DO 
CALL  READ. HEADER. PAGE 
IP  (OLO.PGC  not  equal  to  PROC.GR.CD) 

'  ’  THEN  have  new  PGC  so 
IP  OLO.PGC  ME  99999 
"THEM  not  the  first  PGC 

CALL  PRINT. OUTPUT. PILE 
OLO.PGC  *  PROC.GR.CD 
CALL  INITIAL. NEW. PGC 

ELSE  ''first  PGC  so  set  to  another  default 
OLO.PGC  *  PROC.GR.CD 
ALWAYS 
ALWAYS 

CALL  INITIAL. MEW. NSM 
WHILE  TRLR.T  *  "OTYPE  TRLR  E"  DO 
CALL  TRLR. E. READ. DEMAND 
LOOP 

MAX. MSN  *  MAX. MSN  +  I 

CALL  PRINT. DEMAND. INFO  "calculates  ARS  when  all  QFD  read 
IP  ICC.T  *  "P" 

''THEN  POI  item  so  read  requirements  trailer 
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CALL  TRLR.U.REAO.RQMT 
ALWAYS 

CALL  STORE. RSR. DATA 
LOOP' '  while  loop  for  each  MSN 
CALL  PRINT. OUTPUT. FILE  "for  last  PGC 
END  ' 'main 


ROUTINE  INITIAL. NEW. NSN 

'  '  This  routine  reinitialises  certain  cummulative  counters  after 
' '  each  NSN  has  been  completely  processed 
DEFINE  ROW  AS  AN  INTEGER  VARIABLE 
FOR  ROW  >1  TO  4 
SUM.QD(ROW)>0 
SUM.FREQ>0 
RETURNS^O 
FOR  ROW  -  1  TO  36 
CTREQ.MAT(ROW)  »0 

END  "routine  INITIAL. NEW. NSN 


ROUTINE  INITIAL. NEW. PGC 

' 'This  routine  initialises  all  cummulative  variables  after  before 
''  each  NSN  is  read. 


MAX.NSN>0 

pgc.qd-o 

PGC.QRQNTxQ 

END  "routine  INITIAL. NEW. PGC 


ROUTINE  PRINT. DEMAND. INFO 

'  '  This  routine  prints  the  demand  info  from  trailer  E  and  other 
''  comparison  stats:  PGM  vs  QFD, 

DEFINE  RQQD,  SD.MAD,  AVE.QD,  SD.QD  AS  REAL  VARIABLES 
DEFINE  ROW,  CORREL  AS  INTEGER  VARIABLES 

FOR  ROW  >  1  TO  4  DO 
COMPUTE 

AVE.QD  AS  THE  MEAN  AMD 

SD.QD  AS  THE  STD. DEV  OF  SUM.QD(ROW) 

LOOP 

ARS-  (4  *  AVE.QD) /SUM. FREQ 

'  '  to  convert  MAD  to  quarterly  value  and  into  stand,  deviation 
IF  VIP.IND.T  -"Y" 

"  THEM  monthly  value  and  actual  stnd  dev.  for  demand  is  quarterly 
SD.MAD-MAD* 1.25* (7/4)  "mad  *  1.25  *  sqrt(3) 

ELSE  ' 'already  quarterly  data  just  convert  to  stnd.  dev. 
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SD.MAD-MAO  *  1.25 
ALWAYS 

PGC.QD«PGC.QD  +  AVE.QD 

PGC.QRQMT-PGC.QRQMT  +  (PGM. RQMT. 12.MTH/4 ) 


IF  TRACES*. TRUE 

PRINT  6  LINES  WITH  SUN.QD(l),  SUM.gO(2),  SUM.QD(3),  SUM.gO(4), 
SUM.FREg,  ARS,  MAO,  RETURNS,  PGC.gO,  PGC.gRgMT,  SO. MAO,  SO.gO, 
PGM.RgMT.12.MTH/4,  AVE.gO,  ( PGM . RgMT . 1 2 . MTH/4  -  AVE.gO), 
ALG.SUM.FE  THUS 

SUMS:  go  1  go2  go3  go4  FREg 

**  **  *•  **  ** 


ARS 

MAO 

RSTURMS  Q 

PGC  QO 

*• ,  ** 

**  ^  * 

** 

** 

SO. MAO 

SD.QD 

RQMT  QD 

AVE  QD 

ALWAYS 

**  ^  * 

**  ^  * 

PGC  g.RgMT 
** 

F-A  ASFE 

**  _  *  **  ,  * 


IF  TRACE?*. TRUE 

RggO  *( PGM. RgMT. 12. MTH/4) 

IF  ( (Rggo>AVE.go)  ano  (alg.sum.fe>o) )  or 
( (Rggo<AVE.go)  ano  (alg.sum.fe<o) ) 

' '  then  have  a  correlation  between  forecast  error  and  past  year 
CORREL*! 

ELSE 

CORREL*0 

ALWAYS 


IF  MAX.NSN*! 

PRINT  1  LINE  THUS 

NSN  9RETURN  %SO/RgNT  %ACT/RgM  ASFE  RgMT  gO  %SO  gO/MAO  CORREL 
ALWAYS 


PRINT  1  LINES  WITH  MAX.NSN,  ( 100*R£TURNS/AVE. gO) , 100*SO.NAO/RggO, 

ioo*(AVE.go/Rggo),  alg.sum.fe,  Rggo,  ioo*so. go/so. mao,  correl 

THUS 

**  **  *  **  **  **  *  **  **  •*  *  ** 
always 


ENO  ''routine  PRINT. OEMANO. INFO 


ROUTINE  PRINT. LINE. SEARCH  GIVEN  INTER. STRING 

''This  routine  simply  prints  the  char,  string  in  the  intermediate 
' '  searchs  for  the  next  specific  line  location 
OEFINE  INTER. STRING  AS  TEXT  VARIABLE 

IF  TRACE4  -  .TRUE 

PRINT  1  LINE  WITH  INTER. STRING  THUS 
******************** 

ALWAYS 

ENO  "routine  PRINT. LINE. SEARCH 
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ROUTINE  PRINT. OUTPUT. FILE 

''This  routine  prints  the  actual  data  required  by  the  C&T  model 
''  Below  are  the  NSN  required  input  for  the  C&T  model.  Most  values  come 
''  directly  off  the  Special  Supply  Control  File  (SSCF)  report  and  are 
''  given  the  identical  labels  as  appears  in  the  report. 

' '  1)  Most  variables  come  directly  from  the  Header  page  and  captured  by 
"  READ. HEADER. PAGE  routine. 

' '  2)  ARS  (average  requisition  size)  is  total  demands/total  frequency 
'  '  and  calculated  in  routine  TRLR.E. READ. DEMAND  from  the  Trailer  E 
' '  of  SSCF  data. 

''  3}  For  Program  Oriented  Items  (POI)  additional  data  are  captured: 

''  PER. RTC. DEMAND  (the  percent  of  RTC  PIC  requirement  demands  to 
''  total  NSN  demand).  MAX. MONTH  is  the  number  of  actual  months  of 

' '  Program  Requirement  forecast  since  forecast  can  start  at  any 

''  quarter  in  the  current  fiscal  year  &  then  go  to  additional  years. 

' '  CTREQ.MAT  are  the  actual  monthly  C&T  Requirements  forecasts  sum 

' '  across  all  PICs  for  each  NSN.  ALL  of  this  info  is  obtained  in 

"  routine  TRLR.U.READ.RQMT  (from  Trailer  U  of  SSCF) 

''  4)  MAX. NSN  is  the  total  number  of  NSNs  in  the  PGC  calculated  in  Main 

DEFINE  NSN,  COL  AS  INTEGER  VARIABLE 

IF  TRACES -.TRUE 
LINES. V-0 

PRINT  4  LINE  WITH  PGC. NO,  MAX. NSN  THUS 

...........a.a.NEW  PROCUREMENT  GROUPING  CODE 

PROC.GR.CD  **  MAX. NSN  ** 

PRINT  2  LINES  WITH  NAME,  FSCP,  ICC,  ALT. DAY,  COST,  MAX.MONTHP 
THUS 

ITEM  NAME  FSC  ICC  ADM.LT  STANDARD. PRICE  MAX. MONTH 

*****************  **  *  ** 

PRINT  1  LINE  THUS 

NSN  NUN  PRO.LT  VIP(l-Y)  FIX.  SAFE  QFD 

FOR  NSN  a  1  TO  MAX. NSN 

PRINT  1  LINE  WITH  NSN,  NSN.NO(NSN),  PLT . DAY ( NSN ) ,  VIP. ITEM (NSN) , 
SAFETy.MOMTH(NSN) ,  QFOP(NSN)  THUS 
**  *********  **  *  **.*  ** 


PRINT  2  LINES  THUS 

NSN  MAO  OWRMRP  ALPHA  ARS  PER . RTC . DEMAND 

FOR  NSN  >1  TO  MAX. NSN 
PRINT  1  LINE  WITH 

NSN ,  MADP ( NSN ) ,  OWRMRPP ( NSN ) ,  ALPHAP ( NSN ) ,  ARSP ( NSN ) , 

PER . RTC . OEMANDP ( NSN )  THUS 

**  **  *  **  *  **  **  *  *  **** 
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IF  ICC-"P" 

'  "rHEM  POI  item  do  requirements 
FOR  NSN  -  I  TO  MAX.MSM  DO 


PRINT  2  LINE  WITH  NSN,  NSN.NO(NSN),  MAX. MONTH  THUS 
NSN  **  NUN  *********  CT  REQUIREMENT  MATRIX  FOR  **  MONTHS  — 

MONTHS:  X -  2 - 3 - 4 - 5 - 6 

BEGIN  REPORT  PRINTING 

FOR  COL*  START. MONTH  TO  36  IN  GROUPS  OF  6 

PRINT  1  LINE  WITH  A  GROUP  OF  CTREQ. NAT. HOLD (NSN, COL)  FIELDS 
THUS 

**  **  **  **  **  ** 

END  * ' REPORT 
LOOP 
ELSE 

PGC . QRQMT*0 . 0000000001 
ALWAYS 
ALWAYS 


PRINT  3  LINE  WITH  OLD. PGC,  PGC.QRQMT,  PGC.QD,  100*PGC.QD/PGC.QRQMT 
THUS 

END. OF. PGC  **  PGC  QRQMT  **  PGC  QD  **  %A/R  **.** 

ssaasBsiaaaaaaasaaaaasaaaaaaaaaasmasassasssasaaaassassasaaisaaBSSS 


END  "routine  PRINT. OUTPUT. FILE 


ROUTINE  READ. HEADER. PAGE 

"This  routine  reads  the  header  page  on  from  the  tape  file  of  the 
' '  special  supply  control  file 
' '  ASSUMPTIONS: 

"DCOST  &  STAND  PRICES,  SYSTEM  SS  &  DS,  MAD,  ASFE  ARE  <  10  MILLION 
"2)QFO,  NEWQFD,  (12  MTH,  PAST  MTH,  PAST  QTR)  PGM  RQMT  ARE  <  100  MILLION 

DEFINE  HOLD. TEXT,  ASFE. SIGN  AS  TEXT  VARIABLES 

UNTIL  (TRLR.T»"0TYP  NS")  DO 

READ  TRLR.T  AS  /,  B  1,  T  12 
CALL  PRINT. LINE. SEARCH  GIVEN  TRLR.T 
LOOP 

•'  xaaa  find  Ist  line  of  input 

READ  FSC,  NIIN.T  AS  /,/,B  6,  I  4,  B  12,  T  9,  / 

' '  ammmmm  find  2nd  line  of  input 

UNTIL  HOLD. TEXT*”  ITEM  NAME"  DO  "finds  next  read  record 
READ  HOLD. TEXT  AS  T  12,/ 

CALL  PRINT. LINE. SEARCH  GIVEN  HOLD. TEXT 
LOOP 

READ  ITEM. NAME. T,  PROC.CYC.T,  DVC.T,  ICC.T,  ADM.LT,  PRO.LT 

AS  B  2,T  17,  B  36, T  1,  B  55, T  1,  B  60, T  1,  B  73,1  3,  B  78,1  3 
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READ  VZP.INO.T,  OT.IND.T,  TSCC,  PROC. CYCLE 

AS  B  100, T  1,  B  104, T  3,  B  110,1  3,  B  123,1  3  ,/ 

'*  aaaa  find  3rd  line  of  input  data 

UNTIL  HOLO.TEXT>"SAFE"  00  "finds  next  read  record 
READ  HOLD. TEXT  AS  B  116,  T  4,/ 

CALL  PRINT. LINE. SEARCH  GIVEN  HOLD. TEXT 
LOOP 

READ  FIX. SAFE,  SL.E. FACTOR 

AS  B  116,0(4,1),  B  123,1  1,  / 

'•saaa  Find  4th  line  of  input  data 

READ  ANRDP,  PROC.GR.CD,  COST. PRICE,  STANDARD. PRICE,  ALPHA 
AS  /,/,  B  35,D(4,1),B  41,1  5,  B  88,D(10,2),B  100,D( 10, 2 ) ,B  113,0(4,1),/ 

'  '  Find  5th  line  of  input  data  =■»=»» 

READ  QFD,  MEW. ITEM. QFD,  SYSTEM. SS,  SYSTEM. OS 

AS  /,/,  B  23,1  8,  B  33,1  8,  B  73,0(9,1),  B  84,0(9,1) 

READ  MAD,  ALG.SUM.FE,  ASFE.SIGN 

AS  B  95,0(9,1),  B  106,0(9,1),  B  115,  T  1,  / 

IF  ASFE.SIGN 
' '  THEN  ASFE  is  negitive 
ALG . SUM . FE>- ALG . SUM . FE 
ALWAYS 

' '  ■■■■  Find  6th  line  of  input  data  »=*»»»» 

READ  PGM.RQMT.12.MTH,  PGM . RQMT . PAST . MTH ,  PGM . RQMT . PAST . QTR ,  OWRMRP 
AS  /,/,  B  53,1  8,  B  73,  18,  B  83,  18,  B  93,  I  8,/ 

IF  TRACE1«.TRUE 

PRINT  14  LINES  WITH  FSC,  NUN. T,  ITEM. NAME. T,  PROC.CYC.T,  DVC.T,  ICC.T, 
AOM.LT,  PRO.LT,  VIP.INO.T,  OT.IND.T,  TSCC,  PROC. CYCLE,  FIX. SAFE, 

SL.E. FACTOR,  ANROP,  PROC.GR.CD,  COST. PRICE,  STANDARD. PRICE,  ALPHA, 
QFD,  NEW. ITEM. QFD,  SYSTEM. SS,  SYSTEM. DS,  MAD,  ALG.SUM.FE, 

PGM. RQMT. 12. MTH,  PGM . RQMT . PAST . MTH ,  PGM. RQMT. PAST. QTR,  OWRMRP  THUS 


FSC-  **  MIIN  ********* 

ITEM. NAME. T,  PROC.CYC.T  DVC 


*«*«****••*****  *  * 

VIP.IND.T,  OT.IND.T,  TSCC 
*  **•  ** 

ANROP  PROC.GR.CD  COST. PRICE 

*•,**  **  **_*« 

QFD  NEW. ITEM. QFD 

•  *  »* 

MAO  ALG.SUM.FE 


PGM. RQMT. 12. MTH  PGM . RQMT . PAST . MTH 


ALWAYS 


ICC  ADM.LT,  PRO.LT 

*  *•  ** 

PROC. CYCLE  FIX. SAFE  SL.E 
**  *  * 

STANDARD. PRICE  ALPHA 

SYSTEM. SS,  SYSTEM. OS 

**  ,  «  **  ,  * 

PGM . RQMT . PAST . QTR  OWRMRP 

**  ** 


'  'Set  record  pointer  at  trailer  E 
UNTIL  (TRLR.T-"OTYPE  TRLR  E" )  DO 
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READ  TRtR.T  AS  /,T  12 
CALL  PRINT. LINE. SEARCH  GIVEN  TRLR.T 
LOOP 

END  "routine  READ. HEADER. PAGE 


ROUTINE  STORE. NSN. DATA 

' '  Stores  the  NSN  data  for  later  printing  once  Max.Nsn  is  known 
DEFINE  COL  AS  INTEGER  VARIABLE 

IF  MAX.NSN  >  1 

"THEN  Store  the  NSN  data  that  is  constant  for  entire  PGC 
NAME  ^ITEM.NAME.T 
FSCP  >FSC 
ICC-ICC.T 
ALT. DAY  ^ADM.LT 
PGC. NO  ^PROC.GR.CD 
COST  ^STANDARD. PRICE 
MAX.MONTHP  »MAX. MONTH 
ALWAYS 

"  NSN  specific  data  (i.e.  changes  with  each  NSN) 

MSN.NO(MAX.NSN)aNIIN.T 
PLT .  DAY  ( MAX .  NSN )  ^PRO .  LT 
SAFETY . MONTH ( MAX . NSN ) «F I X . SAFE 
IF  QFD  <  NEW. ITEM. QFD 

"  THEN  use  the  new  item  QFD  since  QFD  not  old  enough  to  be  correct 
QFDP ( MAX . NSN )aMEW. ITEM. QFD 
ELSE  "QFD  is  OK 
QFDP (MAX. NSN) -QFD 
ALWAYS 

NADP( MAX . NSN ) »MAD 
OWRMRPP ( MAX . NSN ) >OWRNRP 
ALPHAP ( MAX . NSN ) > ALPHA 
ARSP(MAX.MSN)>ARS 

IF  VIP.IND.T  -  "Y" 

"THEM  VIP  item  and  requirements  done  monthly  set  to  integer  true  val. 
VIP.ITEM(NAX.NSN)  >  .TRUE 
ELSE 

VIP.ITEM(MAX.MSN)  »  .FALSE 
ALWAYS 

IF  ICC.T  -  "P" 

' 'THEN  POI  item  store  requirement  info 

PER . RTC . DEMAMDP ( MAX . NSN ) -PER. RTC . DEMAND 
FOR  COL-  START. MONTH  TO  36 

CTREQ . MAT . HOLD ( MAX . MSN , COL ) -CTREQ . MAT ( COL ) 

ELSE 

PER . RTC . DEMAMDP ( MAX . NSN ) -0 
MAX.MOMTHP-0 
ALWAYS 

END  "routine  STORE . MSN . DATA 
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ROUTINE  TRLR.E. READ. DEMAND 

' '  This  routine  reads  the  trailer  E  that  contains  historic  demands 
*'  and  their  frequency  for  the  last  4  quarters.  The  routine  sums 
' '  each  quarters  demands  separately.  It  also  takes  the  tot&L 
' '  demands  and  divides  by  the  total  frequency  to  get  average 

''  requisition  si-ze.  Returns  are  not  part  of  the  calculations  and 

' '  nonrecurring,  high  demand  items  have  only  applicable  percent 
' '  in  the  calculation  of  total  demands  and  ARS. 

DEFINE  TEST. EOF  AS  ALPHA  VARIABLE 

DEFINE  ROW  AS  AN  INTEGER  VARIABLE 

DEFINE  DMCD.T,  NSN.T  AS  TEXT  VARIABLES 

DEFINE  FREQ,  QD  AS  AN  INTEGER,  1-OIMENSIONAL  ARRAYS 

RESERVE  FREQ(*),  QD(*)  AS  4 


'  '  Assumes  pointer  at  TYP  TRLR  E  record  left  from  Header  or  TRLR  E 
READ  NSN.T  AS  /,/,/,  B  1,  T  9 
IF  NSN.T  not  equal  to  NIIN.T 
'  '  THEN 

PRINT  1  LINE  WITH  NIIN.T,  NSN.T  THUS 
$$  ERROR  $$$$$  HEADER  NSN  *********  HOT  EQUAL  TO  TRLR  E  ********* 
STOP  ' 'processing 
ALWAYS 


IF  TRACE 2*. TRUE 


PRINT 

2  LINE  WITH 

NSN.T 

THUS 

KSN  «****«*«* 

DMCD  QD 

1  FREQ  1 

QD  2 

FREQ 

2 

QD 

3  FREQ  3 

QD  4 

FREQ 

ALWAYS 

WHILE  NSN 

.T  -  NIIN.T 

DO 

READ 

DMCD.T, 

QD(1), 

FREQ(l) 

9 

QD(2), 

FREQ(2) 

AS 

B  14, T  1, 

B  73,1 

8,  B 

81,1 

5, 

B  88,1  8, 

B  96,  I  5 

READ  QD(3), 

FREQ(3) 

9 

QD(4) 

9 

FREQ(4) 

t 

NSN.T 

AS  B  103,1  8,  a  111,  I  5,  B  118,1  8,  B  126,1  5,  /,  B  1,T  9 

IF  (DMCD.T>"N")  AND  (DVC.T  *  "H”)  ''nonrecurring,  hi  demand  chap25 
' 'THEN  add  applicable  percent  of  nonrecurring  demands  to  total 
FOR  ROW-1  TO  4  DO 

SUN.QO(ROW}-SUN.QD(ROW)  +  (QD(ROW)*ANRDP} 

SUM.  FREQ-SUM.  FREQ  -«■  FREQ  (ROW) 

LOOP 

ELSE 

IF  (DMCD.T  -"T") 

' '  THEM  add  to  return  data 
FOR  ROW-1  TO  4 

RETURMS-RETURMS  +  QD(ROW)/4 
ELSE  ' 'add  all  demands  and  frequencies 
FOR  ROW-1  TO  4  DO 

SUM.aO(ROW)-SUM.QO(ROW)  +  QO(ROW) 

SUM. FREQ -SUM. FREQ  +  FREQ (ROW) 
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LOOP 


ALWAYS 

ALWAYS 

IF  TRACE2-.TRUE 

PRINT  1  LINE  WITH  DMCO.T,  QD(1),  FREQ(l),  00(2),  FR£Q( 2) ,QO( 3 ) , 
FREQ(3),  QD(4),  FREQ(4)  THUS 

*  **  **  •*  **  **  **  **  •* 
ALWAYS 
LOOP 

' ’  At  this  point  end  reading  demands  in  TRLR  E  so  next  possible  options 
''  are  another  TRLR  E,  the  next  NSN  header  record  (OTYP),  a  TRLR  U  if 

' '  POI  item,  or  the  end  of  a  file  (EOF. 7^2)  set  within  loop  by  'Z 

EOF.V-1 

''so  if  EOF  will  stop,  not  print  error  &  abort 
' '  Set  record  pointer  to  next  trailer  record 

READ  TRLR.T  AS  /,B  1,  T  12 

UNTIL  (TRLR.T  =  "OTYPE  TRLR  E" )  OR  { TRLR. T*" OTYP  NS") 

OR  (TRLR.T  =  "OTYPE  TRLR  U" )  OR  (EOF.V-2) 

DO 

READ  TEST. EOF  AS  /,  B  1,A  1 
IF  (TEST.EOF=26)  OR  (EOF.V=2) 

' 'THEN  at  end  of  file  (Note  a  26  is  a  *Z  or  DOS  EOF  indicator 
EOF.V-2 
ELSE 

READ  TRLR.T  AS  B  1,  T  12 
CALL  PRINT. LINE. SEARCH  GIVEN  TRLR.T 
ALWAYS 
LOOP 

' '  set  EOF.V  back  to  0  so  if  finds  unexpected  EOF  will  abort,  but  if 
' '  at  EOF  will  get  out  of  read  next  NSN  loop 
SUBTRACT  1  FROM  EOF.V 

END  ''routine  TRLR. E. DEMAND 


ROUTINE  TRLR . U . READ . RQMT 

''This  routine  reads  the  3  years  of  monthly  C&T  Program  Requirement 
''  data  from  trailer  U  of  the  Special  SCF  report  for  POI  items.  It 
' '  calculates  the  number  of  months  of  requirements  or  MAX. MONTH. 

''  Finally,  it  calculates  the  percent  of  recruit  training  center 
''  demand  ( PER . RTC . DEMAND )  by  dividing  the  recruit  PICs  (last  2  letters 
''  of  PIC  >  AA,  AW,  GB)  requirement  over  the  total  NSNs  requirement 
' '  from  all  the  PICS. 

DEFINE  YR,  ROW  AS  INTEGER  VARIABLES 

DEFINE  HOLD. MAT  AS  AN  INTEGER,  1-DIMENSIONAL  ARRAY 

DEFINE  RTC. SUM,  TOTAL. RQMT,  RQMT.12MTH  AS  REAL  VARIABLE 

DEFINE  NSN.T  AS  A  TEXT  VARIABLE 

DEFINE  TEST. EOF  AS  A  ALPHA  VARIABLE 

RTC . SUM-0 
TOTAL. RQMT-0 
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RQMT.12MTH»0 

RESERVE  CTREQ.MAT(*),  HOLD. MAT  AS  36 

' '  Assumes  pointer  at  TYP  TRLR  U  record  left  from  TRLR  E  or  TRLR  U  prog. 
READ  NSN.T  AS  B  98,  T  9 
IF  NSN.T  not  equal  to  NIIM.T 
' '  THEM 

PRINT  1  LIME  WITH  NIIM.T,  MSM.T  THUS 
$$  ERROR  $$$$$  HEADER  MSN  ********  MOT  EQUAL  TO  TRLR  E  ********* 

STOP  ' 'processing 
ALWAYS 

WHILE  (TRLR.T  =  "OTYPE  TRLR  U")  DO 

READ  PIC.T,  MONTH,  YEAR 

AS  /,  a  55, T  2,  B  76,  12,  B  79,  I  2 

FOR  YR  =1  TO  3  DO 

START  MEW  INPUT  RECORD 
START  NEW  INPUT  RECORD 
START  NEW  INPUT  RECORD 
FOR  ROW  *l  TO  12 

READ  HOLO.MAT(ROW  +  ( (YR  -1}  *  12)) 

LOOP 

FOR  ROW^l  TO  36 

CTREQ.MAT(ROW)»CTREQ.MAT(ROW)  +  HOLD . MAT ( ROW ) 

IF  (PIC.T  »  "AA")  OR  (PIC.T  »  "AW")  OR  (PIC.T  *  "GB") 

’ 'THEN  add  to  the  RTC  sum 
FOR  ROW  -  1  TO  36 

RTC.SUM>RTC.SUM  +  HOLD . MAT ( ROW ) 

ALWAYS 

IF  TRACE3  a  .TRUE 

PRINT  1  LINE  WITH  PIC.T  THUS 


MONTH  PIC  **  YR  1 

FOR  ROW  a  1  TO  12 

DO 

YR  2 

YR  3 

PRINT  1  LINE  WITH 
BOLD. MAT (ROW+24) 

ROW, 

THUS 

BOLD. MAT (ROW) , 

HOLD.MAT(ROW+12) 

**  ** 

LOOP 

ALWAYS 

** 

** 

'  at  this  point  after  a  PIC  has  been  read  for  all  three  years 
'  there  are  3  possibilities:  1)  another  TRLR  U  follows  on  this 

'  page  or  the  next,  2)  the  header  page  follows  (OTYP  MSN)  for  a 

'  new  MSN,  3)  all  MSNs  have  been  read  and*  at  end  of  file 

EOF.V-1 

''so  if  EOF  will  stop,  not  print  error  &  abort 
'  Set  record  pointer  to  next  trailer  record 
READ  TRLR.T  AS  /,B  1,  T  12 

UNTIL  (TRLR.T»"OTYP  MS")  OR  (TRLR.T  =  "OTYPE  TRLR  U") 

OR  (EOF.V-2)  DO 
READ  TEST. EOF  AS  /,  B  1,A  1 
IF  (TEST.EOF-26)  OR  (EOF.V-2) 

' 'THEN  at  end  of  file  (Note  a  26  is  a  ~Z  or  DOS  EOF  indicator 
EOF.V-2 
ELSE 
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READ  TRLR.T  AS  B  1,  T  12 
CALL  PRINT. LIME. SEARCH  GIVEN  TRLR.T 
ALWAYS 
LOOP 

' '  set  EOF.V  back  to  0  so  if  finds  unexpected  EOF  will  abort,  but  if 
' '  at  EOF  will  get  out  of  read  next  MSN  loop 

SUBTRACT  1  FROM  EOF.V 
LOOP  ' '  while  same  NSM 

' '  The  PGM  RQMTs  start  at  Oct  »  i,  Nov  »2,  etc.  Below  converts  month 
' '  to  position  in  program  file 

START. MONTHS  MOO. F( (MONTH  +  3),  12) 

MAX. MONTHS 3 6  -  (START. MONTH  -  1) 

FOR  ROW  »  1  TO  36 

TOTAL. RQMT^TOTAL.RQMT  -t-  CTR£Q.MAT(ROW) 

PER. RTC. DEMAND  >  RTC . SUM/TOTAL . RQMT 

FOR  ROW  »START. MONTH  TO  (START. MONTH  +  11) 

RQMT.12MTH>RQMT.12MTH  +  CTREQ . MAT ( ROW ) 

IF  (PGM. RQMT. 12. MTH  LT  RQMT.12MTH*0.95)  OR 
(PGM. RQMT. 12. MTH  GT  RQMT. 12MTH*1 . 05 ) 

''THEN  is  NOT  w/i  +/-  5%  of  TRLR  U  sum 
PRINT  3  LINES  WITH  PGM. RQMT. 12. MTH,  RQMT.12MTH  THUS 

ERROR  tttttlititttttt  REQUIREMENTS  FROM  TRLR  &  HEADER  DO  NOT  EQUAL 
HEADER  12  MONTH  REQUIREMENT  **  SUM  OF  TRLR  U  ** 

ALWAYS 

IF  TRACE6».TRUE 

PRINT  3  LINE  WITH  PIC.T,  MONTH,  YEAR,  RTC. SUM,  RQMT.12MTH, 

PGM. RQMT. 12. MTH, 

START. MONTH,  MAX. MONTH,  PER. RTC. DEMAND  THUS 
PIC  **  (IP  AA,  AW,  GB  then  RTC)  MTH/YR  **/** 

RTCSUM  •*.*  SUM  PRGM  **  RQMT. 12. MTH  ** 

START  MTH  **  MAX. MONTH  **  PER. RTC. DD  *.**** 

PRINT  1  LINE  THUS 

FOR  THE  TOTAL  NSN  YEAR  1  YEAR  2  YEAR  3 

FOR  ROW  >  1  TO  12  DO 

PRINT  1  LINE  WITH  ROW,  CTREQ. MAT ( ROW ) ,  CTREQ. MAT ( ROW+12 ) , 
CTREQ.MAT(ROW+24)  THUS 

**  **  *• 

LOOP 

ALWAYS 

END  ''routine  TRLR. U. READ. RQMT 
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CHAPTER  4 


C&T  VARIABLE  SAFETY  LEVEL  MODEL 


This  chapter  describes  the  C&T  variable  safety  level  (VSL)  model.  The  VSL 
model  is  an  analytical  model  that  derives  the  amount  of  safety  stock  that  each  item 
in  a  system  of  items  should  receive  in  order  to  minimize  the  total  number  of  time- 
weighted  backorders  in  the  system  for  a  given  investment  in  safety  level.  The 
program  resides  in  the  subdirectory  C.ASIMWSL  on  the  PC's  hard  disk.  The  chapter 
contains  four  sections:  the  outline  flow  of  the  program,  the  list  of  all  procedures,  a 
short  description  of  each  procedure,  and  the  program  source  code. 

FLOW  OUTLINE  OF  PROGRAM 

PREAMBLE 

MAIM 

SET. OPTIONS 
ALLPGC. INITIALIZE 

OPTIONAL . ASSUMPTIONS 

Until  at  end  of  file  do 
INPUT. SSCP. DATA 
PRINT. SSCF. DATA 
If  not  at  end  of  file 

''Then  just  found  the  SSCF  for  another  PGC  so  process  it 
INPUT. MPTO 11. DATA 
XTZ.PLTS 

DO. Q. INCREMENT 
STORE. VSL. DATA 
Always 
loop 

PRINT . ASSUMPTIONS 
VSL. EQUATION 

PRINT. VSLINFO 
OUTPUT. VSL 
end 

LISTING  OF  PROCEDURES 

PREAMBLE 

MAIN 

ALLP6C. INITIALIZE 
DO. Q. INCREMENT 
INPUT. MPTO 11. DATA 
INPUT. SSCF. DATA 
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OPTIONAL . ASSUMPTIONS 
OUTPUT. VSL 
PRINT . ASSUMPTIONS 
PRINT. SSCF. DATA 
PRINT. VSLINFO 
SET. OPT IONS 
STORE. VSL. DATA 
VSL. EQUATION 
XYZ.PLTS 

DESCRIPTION  OF  PROCEDURES 

PREAMBLE 

This  is  an  analytical  model  to  produce  VSL  in  months  for  a  system 
of  items  that  is  a  single  PGC  or  many  PGCs.  It  uses  some  routines 
directly  from  the  C&T  simulation  model.  The  file  produced  can  be 
automatically  read  by  the  simulation.  The  VSL  model  input  is  the 
SSCF  report  file  and  the  Management  Policy  Table  11  file.  Its 
output  is  the  VSL  in  months  by  PGC  and  MSN  ("VSL.DAT”)  and  trace 
information  in  the  file  "VSLOUT.DAT". 

MAIN 

This  routine  has  the  basic  structure  of  the  VSL  analytical  model 
ALLPGC. INITIALIZE 

This  routine  has  the  basic  structure  of  the  VSL  analytical  model 
DO. Q. INCREMENT 

This  routine  calculates  the  Q  in  the  VSL  formula  which  usually 
represents  order  quantity.  However  with  incremental  deliveries  the 
order  quantity  (divided  by  2)  is  not  an  accurate  representation  of 
the  average  stock  (assumed  by  the  VSL  formula).  So  if  the  QINC.OPT 
is  true  this  routine  calculates  the  average  stock  of  an  NSN  times  2. 
It  uses  in  that  calculation  3  pieces  of  information: 
the  number  of  NSN  specific  deliveries  of  an  item;  the  months  early 
the  first  incremental  delivery  arrives  before  the  forecasted  NSN  PLT; 
and  the  procurement  cycle  in  months.  If  the  QINC.OPT  is  false  it 
uses  the  total  order  quantity  as  the  Q  and  assumes  no  incremental 
deliveries . 

INPUT. MPTO 11. DATA 

This  routine  Reads  management  policy  table  11  and  gets  the  minimum 
procurement  cycle,  PGC  delivery  percents  for  all  delivery 
increments,  1  of  4  methods  of  delivery,  PGC  first  delivery  in  days. 

INPUT. SSCF. DATA 

This  routine  reads  the  requited  input  data  to  run  the  simulation 
and  the  VSL  model  originally  captured  from  the  Special  Supply 
Control  File  Report  via  a  SIMSCRIPT  program  in  directory  OLADATA. 

The  routine  similar  to  the  simulation  routine  searches  for  the 
desired  PGC  number,  and  reads  in  the  data  into  the  approriate 
variables.  If  the  PGC  number  is  not  found  the  program  prints 
error  message  and  stops 
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OPTIONAL . ASSUMPTIONS 

This  routine  lets  the  user  override  the  standard  aasunptions,  options 
or  traces  settings  found  in  ALLPGC. INITIALIZE  &  SET. OPTIONS.  It  lets 
the  user  specify  their  own  by  editing  the  file  ASSUMP.MOD  &  entering 
1  in  the  user  query  for  the  selection  of  an  alternate  Assumption  file. 

OUTPUT. VSL 

This  routine  outputs  the  VSL  in  months  just  calculated.  It 
can  store  this  file  in  the  simulation  directory  so  CATS  can 
automatically  read  it,  or  in  this  directory  so  that  the  information 
in  the  CATS  directory  will  not  be  destroyed.  It  prints  the 
entire  system  of  NSNs  by  PGC  and  then  by  NSNs  within  the  PGC. 

PRINT . ASSUMPTIONS 

This  routine  prints  tha  answers  or  the  assumptions  entered  by 
the  user  during  the  initial  interactive  session. 

PRINT. SSCF. DATA 

This  routine  prints  the  SSCF  data  read  in  by  routine  INPUT . SSCF . DATA 

PRINT. VSLINFO 

This  routine  prints  all  the  key  information  needed  to  solve  the 
VSL  formula.  The  information  is  all  stored  in  an  entity  similar 
to  an  array  with  the  index  including  every  MSN  for  all  PGCs 
in  the  system. 

SET. OPTIONS 

This  key  routine  is  where  all  options  are  set,  queries  are  asked, 
traces  are  defined  and  set,  and  I/O  units  are  declared. 

STORE. VSL. DATA 

This  routine  stores  the  key  variables  needed  to  solve  the  VSL 
equation:  Q,  NAOLT,  COST,  K,  Demand/yr.  It  also  calculates  the* 

MADLT,  the  sum  of  all  NAOLT*COST,  and  stores  the  PGCs  name, 
number  of  MSN,  and  code. 

VSL. EQUATION 

This  routine  solves  the  VSL  equations  once  the  key  variables 
have  been  derived  and  stored(for  all  NSNs  in  system)  and  the 
sum  of  MADLT  *  cost  for  all  NSNs  is  calculated  (both  done  in 
STORE. VSL. DATA.  The  routine  calculates  VSL  and  makes  sure  it  is  less 
then  3  standard  deviations  or  the  mean  lead time 'demand.  It  also 
calculates  EBOs,  fill  rates  by  NSM  and  cummulative  for  the  system. 

XYZ . PLTS 

This  routine  determines  which  NSM  are  X,  Y,  or  Z  items,  and  based 
on  delivery  method  1  to  4,  what  the  NSNs  PLTs  are.  The  routine 
also  calculates  the  average  procurement  cycle  for  each  MSN. 
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SOURCE  CODE 

PREAMBLE 

"CLOTHIHG  AMD  TEXTILE  VARIABLE  SAFETY  MODEL 
' '  (directory  VSL)  basic  features: 

' '  This  is  an  analytical  model  to  produce  VSL  in  months  for  a  system  of 
''  items  that  is  a  single  PGC  or  many  PGCs.  It  uses  some  routines 
' '  directly  from  the  C&T  simulation  model.  The  file  produced  can  be 
' '  automatically  read  by  the  simulation.  The  VSL  model  input  is  the 
' '  SSCF  report  file  and  the  Management  Policy  Table  11  file.  Its 
''  output  is  the  VSL  in  months  by  PGC  and  MSM  ("VSL.DAT”)  and  trace 
'•  information  in  the  file  "VSLOUT.DAT". 

NORMALLY  MODE  IS  UNDEFINED 

PERMANENT  ENTITIES 

''  Originally,  each  PGC's  MSM  raw  data  feed  into  this  entity  where 
' '  data  is  aggregated  into  VSL  variables  stored  in  SYSTEM. ATTRIBUTES 

' '  Each  time  a  new  PGC  is  read  all  below  data  is  overwritten 

EVERY  MSM. ATTRIBUTES  BAS  "key  attributes  for  each  MSM  by  PGC 
A  PLT.DAY,  ' 'procurement  leadtimes  in  days 
A  ARS,  ' 'average  requistion  size 

A  AVE . FORECAST ,  ' 'AMF  over  course  of  simulation:  CTREQ+QFO/3 
A  ROP.QTY,  ''reorder  point  in  units 

A  PCP. MONTH,  ' 'procurement  cycle  period  in  months 
A  SAFETY. MONTH,  ' 'safety  level  in  months  either  VSL  or  FSL 
A  STOCK,  ''in  stock  items  or  onhand  at  inventory 
A  OWRM,  ' 'other  war  reserve  material  protectable  units 
A  PER. RTC. DEMAND,  ''the  percentage  of  recruit  to  total  demand 
A  VIP. ITEM,  "  1-yes  VIP(monthly  ROPT),  0  Mot  VIP  (quarterly) 

A  MAD,  ' 'mean  absolute  deviation  in  QTR  demand  (monthly  if  VIP) 
A  QFD,  ''quarterly  forecast  demands  directly  from  SSCF 
A  ALPHA,  ' '  alpha  factor  from  SSCF 

A  Q. INCREMENT,  ''order  quantity  &  avg.  stock  (no  safety  level) 
''  for  incremental  deliveries 
A  MSN. MO  ' '  the  MSN  number 

DEFINE  PLT.DAY,  ROP.QTY,  PCP. MONTH,  ARS,  MAD, 

PER. RTC. DEMAND,  Q. INCREMENT  AS  REAL  VARIABLES 
DEFINE  ALPHA, QFD, SAFETY. MONTH,  AVE. FORECAST, 

FORECAST. MTH,  OWRM,  STOCK  AS  REAL  VARIABLES 
DEFINE  VIP. ITEM  AS  INTEGER  VARIABLE 
DEFINE  MSM. NO  AS  TEXT  VARIABLE 

' '  Once  a  PGCs  raw  data  is  read  in,  key  variables  are  calculated  and 

' '  store  in  this  entity  which  contains  all  VSL  parameters  for  each 

' '  MSN  in  the  entire  system 

EVERY  SYSTEM. ATTRIBUTES  HAS 

A  NIIN,  ' '  NSN  number  identical  to  MSN. MO  variable 
A  Q. ORDER,  "  identical  to  Q. INCREMENT 
A  MADLT,  ' '  LT*MAD 

A  COST.PU,  ' '  cost  per  unit,  identical  to  COST 
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A  DM0. YR,  ' '  annual  unit  demand  per  year 
A  SO. MEAN,  ' '  Standard  deviation  to  mean  ratio 
A  FILRT,  ' '  an  items  unit  fillrate 
A  EBO,  ' '  the  items  time  weighted  backorders 

A  K.SAFETY,''  the  safety  level  factor  for  the  item 
A  Z. ESSENTIAL,  '  '  the  essentiality  factor  10  RTC%  demand 
A  VSL. MONTH"  the  VSL  in  months 

DEFINE  NUN  AS  A  TEXT  VARIABLE 

DEFINE  g. ORDER,  MADLT,  COST.PU,  DMD.YR,  SD.MEAN,  FILRT,  EBO, 
K.SAFETY,  VSL. MONTH,  Z. ESSENTIAL  AS  REAL  VARIABLES 

TEMPORARY  ENTITIES 
EVERY  PGC. MEMBER  HAS 

A  NAME,  ' '  the  PGC  name 

A  CODE,  ' '  the  procurement  grouping  code 

A  MO. ITEMS  "  the  number  of  NSNs  or  MAX.MSNs 

BELONGS  TO  THE  PGC. SET 
DEFINE  NAME  AS  TEXT  VARIABLE 
DEFINE  NO. ITEMS  AND  CODE  AS  REAL  VARIABLES 

THE  SYSTEM 

OWNS  A  PGC. SET 

DEFINE  PGC. SET  AS  A  FIFO  SET 
PGC  characteristics 

DEFINE  MAX. MONTH,  "number  of  months  IN  POI  CTREQ  forecasts 
MAX.NSN  AS  INTEGER  VARIABLE  "  number  of  NSNs  in  PGC 
DEFINE  COST  AS  REAL  VARIABLES 
DEFINE  PGC. NAME  AS  TEXT  VARIABLE 

DEFINE  ICC  AS  TEXT  VARIABLE  "type  of  requirements  calculation 

DEFINE  FSC  AS  INTEGER  VARIABLE  "federal  supply  code 

DEFINE  PGC. NO  AS  INTEGER  VARIABLE  "PGC  code  number 

DEFINE  MIN. PC  AS  A  REAL  VARIABLE  "min.  procurement  cycle(MPT  11} 

DEFINE  ALT. DAY  AS  A  INTEGER  VARIABLES 

DEFINE  PGC. SL. STOCK  AS  REAL  VARIABLE  "PGC  safety  level  stock 
DEFINE  RUN. ID  AS  REAL  VARIABLE  "ID  when  run  PGC  more  than  once 
DEFINE  CTREQ. MAT  AS  A  REAL,  3-DIMENSIOMAL  ARRAY 
NSN  specfic  means  and  stand,  deviation  of  requirement  matrix 
DEFINE  MEAN. CTREQ  AMD  STD. CTREQ  AS  A  REAL,  l-DIMENSIONAL  ARRAYS 
DEFINE  TARGET. PGC  AS  INTEGER  VARIABLE  "PGC  looking  for  to  get  data 

ALL  PGCs  in  the  SYSTEM  variables 

DEFINE  SUM.MAOCT,  "the  sum  of  MADLT*COST  for  all  NSNs  in  system 
BETA. BO,  ' '  Backorder  lines  goal 
SUM.WGTFILRT,  "demand  weighted  system  fill  rate 
SUM. EBO,  "sum  of  EBO  over  all  NSNs  in  the  system 
SUM. DEMAND,  "sum  of  the  demand  for  the  system 
SUM.VSLCT,  "sum  of  variable  safety  level  *  demand  *  cost 
SUM.FSLCT  "sum  of  fixed  safety  level  *  demand  *  cost 
AS  REAL  VARIABLE 

DEFINE  MAX. PGC,  "count  of  PGCs  so  far  included  in  VSL 
AT. EOF,  ' 'when  all  PGCs  are  read  set  to  true 

MAXDIM.NSM, ' ' the  maximum  dimension  or  NSN  a  PGC  can  have 
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MAXSYSDIM.NSN,  "the  maximum  MSMs  for  the  system  VSL 
SYSTEM. MSN  ' '  the  number  of  MSMs  for  all  PGCs  so  far 
AS  INTEGER  VARIABLE 


DEFINE 

MAX. DELIVERIES,  "  no.  of  months  of  deliveries  for  the  PGC  (MPTOll) 
FIRST. DELIVERY,  "days  of  PLT  before  a  MSN  is  delivered 
Z. PERCENT,  "2  item  z%  of  PC*OBMAND  for  matrix  deliveries 
X. PERCENT  "X  item  >»  x%  of  PC*DEMAMD,  Y  item  remainder 
AS  REAL  VARIABLES 

DEFINE  Ml,  M2,  T  AS  REAL  VARIABLE  "used  in  procurement  cycle  PCP 
' '  percent  PGC  order  delivered  each  month  in  matrix  delivery 
DEFINE  DELIVERY. PERCENT  AS  A  REAL,  1-DIMENSIONAL  ARRAY 

' '  simulation  options  &  traces  below,  see  SET. OPTIONS  for  definitions 
DEFINE  NEWASSUMP.OPT,  DELIVERY. OPT,  ALLPGC.OPT,  QINC.OPT, 

DOREQ.OPT,  MODIFYDATA.OPT,  MODMPTOll.OPT,  ADDPGC.OPT,  Z.ESNTL.OPT 
AS  INTEGER  VARIABLES 

DEFINE  TRACEl,  TRACE2,  TRACE3,  TRACE4,  TRACES,  TRACES,  TRACE?, 
TRACES,  TRACES,  TRACEIO,  TRACEll,  TRACE12,  TRACEl 3,  TRACEl 4, 
TRACE15,  TRACE16,  TRACEl? ,  TRACE18,  TRACE19,  TRACE20,  TRACE21, 
TRACE22,  TRACE23,  TRACE24  AS  INTEGER  VARIABLES 
' '  constants 

DEFINE  .TOTAL  TO  MEAN  1  ' '  next  3  constants  are  the  columns 

DEFINE  .RECRUIT  TO  MEAN  2  "  of  the  CTREQ.MAT  array 

DEFINE  .OTHER  TO  MEAN  3 

DEFINE  .TRUE  TO  MEAN  1 

DEFINE  .FALSE  TO  MEAN  0 

DEFINE  .DPM  TO  MEAN  30  "DAYS  PER  MONTH 

DEFINE  .MINVAL  TO  MEAN  0.000000000001 

END ' ' PREANBLLE 


MAIN 

' '  This  routine  has  the  basic  structure  of  the  VSL  analytical  model 
CALL  SET. OPT IONS 
CALL  ALLPGC. INITIALIZE 


UNTIL  AT. EOF-. TRUE  DO  "all  PGCs  in  file  (except  if  VSL  w/in  PGC) 
CALL  INPUT. SSCF. DATA 

At  this  point  AT. EOF  is  true  if  only  1' PGC  or  at  EOF  &  have 
and  no  more  PGC  information  to  do 

IF  (AT. EOF  -  .FALSE)  "means  doing  more  than  1  PGC  &  not  at  EOF 
OR  (MAX. PGC  -  I)  "means  doing  1ST  PGC  so  in  first  pass 
"THEN  just  found  the  SSCF  for  another  PGC  so  process  it 
CALL  INPUT. MPTOll. DATA 
CALL  XYZ.PLTS 
CALL  STORE. VSL. DATA 
ALWAYS 

LOOP 

CALL  PRINT. ASSUMPTIONS 
CLOSE  UNIT  4  "SSCFSIM.DAT 
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CLOSE  UNIT  11  ''MPT011.DAT 
CALL  VSL. EQUATION 
CALL  OUTPUT. VSL 
END' 'MAIN 


ROUTINE  ALLPGC. INITIALIZE 

' '  This  routine  initialises  those  variables  set  and  held  constant 
''for  all  PGCs  (T,M1,M2,  and  optional  assumptions) 

CREATE  EVERY  NSN .ATTRIBUTES (MAXDIM.NSN) 

CREATE  EVERY  SYSTEM. ATTRIBUTES  (MAXSYSDIM.NSN) 

IF  NEHASSUMP.OPTa. false 
''THEN  use  standard  assumptions 
' ■  *****  PROCUREMENT  CYCLE  VALUES  ****** 

Ta365  '  '  ordering  and  holding  cost  constant 

Mla92S  ''dollar  value  quarterly  demand  floor,  <  Ml  PCP=36  mth 
M2>9999  '  'dollar  value  quarterly  demand  ceiling,  >M2  PCP>6  mth 

ELSE  ''read  file  with  optional  assumptions 
CALL  OPTIONAL. ASSUMPTIONS 
ALWAYS 

LINES. V*0 

PRINT  6  LINES  WITH  RUN. 10  THUS 

Mlititttitt  THE  DETAIL  VSL  TRACE  OUTPUT  REPORT  «««i««»#«f «tlttt 

MllltlltttltittittliKFlLE:  VSLOUT.DAT)»itltttitltt««*t»lttt*tt««iti« 

(ID  NUMBER  OF  RUM  **) 

END"  routine  ALLPGC. INITIALIZE 


ROUTINE  DO. Q. INCREMENT  GIVEN  NSN  AMD  PERCENT. PCP 

' '  This  routine  calculates  the  Q  in  the  VSL  formula  which  usually 
''  represents  order  quantity.  However  with  incremental  deliveries  the 
'  '  order  quantity  (divided  by  2)  is  not  an  accurate  representation  of 
''  the  average  stock  (assumed  by  the  VSL  formula).  So  if  the  QINC.OPT 
''  is  true  this  routine  calculates  the  average  stock  of  an  NSN  times  2. 

'  '  It  uses  in  that  calculation  3  pieces  of  information: 

''  the  number  of  NSN  specific  deliveries  of  an  item;  the  months  early 
''  the  first  incremental  delivery  arrives  before  the  forecasted  NSN  PLT; 
''  and  the  procurement  cycle  in  months.  If  the  QINC.OPT  is  false  it 
' '  uses  the  total  order  quantity  as  the  Q  and  assumes  no  incremental 
''  deliveries. 


DEFINE  MONTHS. EARLY,  DELIVERIES,  MSN  AS  INTEGER  VARIABLE 
DEFINE  PERCENT. PCP,  DELIV. RATIO  AS  REAL  VARIABLE 
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IF  Q INC. OPT*. TRUE 

''THEM  calculate  a  average  stock  onhand  (no  safety  stock)  for  Q 
DELIV. RATIO  *  MAX. DELIVERIES/6  "  In  case  PGC  deliveries  >  6 
' '  First  calculate  the  conunon  deliveries  and  months  then  exceptions 
IF  (PERCENT. POP  <*  Z. PERCENT) 

' 'THEN  Z  item 

MONTHS. EARLY*0 
DELIVERIES*! 

ELSE  "X  &  y  item 

MONTHS. EARLy*3  *  DELIV. RATIO 
0ELIVERIES*6  *  DELIV. RATIO 
ALWAYS 

SELECT  CASE  DELIVERY. OPT  ''  exceptions  for  months  early  &  deliver. 
CASE  1 

MONTHS. EARLY*0  *  DELIV. RATIO 
DELIVERIES*! 

CASE  2 

IF  ( PERCENT. PCP  <  X. PERCENT)  AND  ( PERCENT. PCP  >  Z. PERCENT) 
''THEN  y  item  that  starts  deliveries  in  middle  of  schedule 
MONTHS. EARLY  *  1  *  DELIV. RATIO 
DELIVERIES  *  3  *  DELIV. RATIO 
ALWAYS 
CASE  3 

IF  (PERCENT. PCP  <*  Z. PERCENT) 

''THEM  Z  item  that  starts  deliveries  1/3  way  into  schedule 
MONTHS. EARLY  *  2  *  DELIV. RATIO 
DELIVERIES  *  4  •  DELIV. RATIO 
ALWAYS 
DEFAULT 

EMDSELECT 
IF  TRACE1*.TRUE 

PRINT  1  LINE  WITH  MSN,  MONTHS . EARLY ,  DELIVERIES, 

PERCENT. PCP  THUS 

NSN  **  EARLY  MTHS  **  DELIVERIES  **  %  PCP  **.** 

ALWAYS 

' '  calculate  Q  -  order  quantity 

Q.IMCREMENT(NSN)*(( (PCP. MONTH (MSN)  -  ( DELIVERIES-1 ) )/2 ) 

+  MONTHS. EARLY)  *  AVE. FORECAST (MSN)  *  2 
ELSE  ' 'calculate  standard  order  quantity 

g. INCREMENT (NSN)  *  PCP . MONTH ( NSN )  *  AVE . FORECAST ( NSN ) 

ALWAYS 

END  ''routine  DO. Q. INCREMENT 


ROUTINE  INPUT. MPTO 11. DATA 

' 'This  routine  Reads  management  policy  table  11  and  gets  the  mi;iimum 
' '  procurement  cycle,  PGC  delivery  percents  for  all  delivery 
''  increments,  1  of  4  methods  of  delivery,  PGC  first  delivery  in  days. 

DEFINE  TEST. TEXT,  TEST2  AS  Tir.T  VARIABLE 
DEFINE  I,  PGC.NUM,  MONTH  AS  INTEGER  VARIABLE 
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DEFINE  TEST. EOF  AS  ALPHA  VARIABLE 
DEFINE  PGC. PERCENT  AS  REAL  VARIABLE 

USE  UNIT  11  FOR  INPUT 
USE  6  FOR  OUTPUT 
EOF.V"! 

****  PHASED  DELIVERY  SET  UP  ******** 

MAX.DELIVERIESal2 

RESERVE  DELIVERY. PERCENT(*)  AS  MAX. DELIVERIES 

UNTIL  PGC.NUM  ^  TARGET. PGC  DO  ''loop  to  find  PGC  target  number 
TEST. TEXT-" NEW  PGC" 

UNTIL  TEST. TEXT- "ROUP"  DO  "  loop  to  find  GROUP  label 
START  NEW  INPUT  RECORD 
READ  TEST. EOF  ' ' 

IF  ( (TEST.E0PO26)  AND  (EOF.V<>2)) 

"THEN  look  for  GROUP  in  file  to  find  PGC  NUM 
READ  TEST. TEXT 

ELSE  '*  at  end  of  file  without  finding  PGC's  MPT  Oil  file 
WRITE  AS  "tit  ERROR:  TARGET  PGC  MPTOll  FILE  MOT  FOUND  ", 
/  USING  6 
STOP 

REGARDLESS 

LOOP 

have  found  the  GROUP  label  now  read  PGC.NUM 
START  MEW  INPUT  RECORD 

READ  PGC.NUM,  I,  MIN. PC,  TEST. TEXT,  TEST2 
LOOP 

FOR  MONTH  -  1  TO  MAX . DELIVERIES 
READ  DELIVERY . PERCENT ( MONTH ) 

MONTH- 1 

WHILE  ((MOMTH<-  MAX. DELIVERIES)  AMD  (DEL I VERY. PERCENT (MONTH)  >  0)) 
DO  ''no.  incremental  deliveries 

DELIVERY. PERCENT (MONTH)  -  DEL I VERY. PERCENT (MONTH) /I 0  ''make  a  % 
PGC. PERCENT  -  PGC. PERCENT  +  DEL I VERY. PERCENT (MONTH) 

MONTH-MONTH  +  1 
LOOP 

MAX. DELIVERIES -MONTH  -  1 

IF  (PGC. PERCENT  <  99.99)  OR  (PGC. PERCENT  >  100.01) 

' 'THEN 

WRITE  AS  "Itt  ERROR:  PGC  DELIVERY  PERCENT  NOT  EQUAL  TO  100”, 
/  USING  6 
STOP 

R:  jAROLESS 

START  NEW  INPUT  RECORD 

FOR  I-l  TO  3 
READ  TEST2 
READ  DELIVERY. OPT 
FOR  I-l  TO  4 
READ  TEST2 
READ  FIRST. DELIVERY 
FOR  I-l  TO  3 


4-9 


READ  TEST2 

READ  X. PERCENT,  Z. PERCENT 

i.NT  4  LINES  WITH  PGC.NUM,  DELIVERY  .OPT,  FIRST.  DELIVERY,  X.  PERCENT, 
Z. PERCENT,  MIN. PC  THUS 


sassaaaasaaaa.  MANAGEMENT  POLICY  TABLE  11  PILE  INPUT  ===========.=== 

PGC  **  METHOD  OF  DELIVERY  **  PGC  FIRST  DELIVERY  DAYS  ** 

X  =  **%  Z  »  MINIMUM  PROC  CYCLE  ** 


FOR  MONTH  »  1  TO  MAX. DELIVERIES  DO 

PRINT  1  LINE  WITH  MONTH,  DELIVERY. PERCENT (MONTH)  THUS 
MONTH  =  **  DELIVERY. PERCENT  ** 

LOOP 

REWIND  UNIT  11  ' ' for  next  PGC 
END  ''routine  INPUT. MPTOl 1 . DATA 


ROUTINE  INPUT . SSCF . DATA 

' '  This  routine  reads  the  required  input  data  to  run  the  simulation 
'  '  and  the  VSL  model  originally  captured  from  the  Special  Supply 
' '  Control  File  Report  via  a  SIMSCRIPT  program  in  directory  DLADATA. 

' '  The  routine  similar  to  the  simulation  routine  searches  for  the 
''  desired  PGC  number,  and  reads  in  the  data  into  the  approriate 
''  variables.  If  the  PGC  number  is  not  found  the  program  prints 
' '  error  message  and  stops 

DEFINE  TEST. EOF  AS  ALPHA  VARIABLE 
DEFINE  MONTH,  CCL,  NSN  AS  INTEGER  VARIABLE 
DEFINE  TEST. TEXT  AS  TEXT  VARIABLE 

USE  UNIT  4  FOR  INPUT  "C:\SIM\DLA\SSCFSIM. DAT/MOD 
EOF.V»l 

''  *******  Find  target  PGC's  beginning  of  data  input  **** 

PRINT  1  LINE  WITH  PGC. NO,  TARGET. PGC  THUS 
BEGINNING  OF  IN  SSCF  NUN  **  TARGET 
PGC.HO«9999 

UNTIL  PGC. NO  -  TARGET. PGC  DO  ''loop  to  find  PGC  target  num!<er 
TEST. TEXT= "NEW  PGC" 

UNTIL  TEST. TEXT-" ROC. GR. CD"  DO  "  loop  to  find  PROC. 6R. CD  label 
START  NEW  INPUT  RECORD 
READ  TEST . EOF  ' ' 

IF  ( {TEST.E0FO26)  AND  {EOF.V<>2)) 

"THEN  look  for  GROUP  in  file  to  find  PGC  HUM 
READ  TEST. TEXT 

"  PRINT  1  LINE  WITH  TEST. TEXT  THUS 

' '  TEST  TEXT  • 

ELSE  ' '  at  end  of  file 
IF  ALLPGC.OPT  -.TRUE 

''THEN  at  end  of  file  so  continue  with  rest  of  VSL  program 
AT. EOF-. TRUE 
RETURN 

ELSE  ' '  can  not  find  target  PGC  in  SSCF  report  file 

WRITE  AS  "til  ERROR:  TARGET  PGC  NOT  IN  SSCF  REPORT  ", 
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/  USING  6 
STOP 

REGARDLESS 

LOOP 

'  '  have  found  the  GROUP  label  now  read  PGC.NO 
READ  PGC.NO,  TEST. TEXT,  MAX.NSN 
I?  ALLPGC.OPT^.TRUE 

''THEN  want  to  use  data  from  each  PGC  found 
TARGET . PGC =PGC . NO 
ALWAYS 

''  PRINT  1  LINE  WITH  PGC.NO,  TEST. TEXT,  MAX.NSN,  MAX . PGC  THUS 
'  '  PGC  NO.  **  TEXT  *******  MAX.NSN  **  PGC  ** 

LOOP 

'  '  ********  Start  reading  PGC  related  data  **************** 

MAX.PGC*MAX.PGC  +  1 
READ  PGC. NAME  AS  /,/,B  1,T  20 
READ  PSC,  ICC,  ALT. DAY,  COST,  MAX. MONTH 

"AS  /,/,B  1,T  17,  B  22,1  7,  B  29, T  3,  B  34,1  6,  B  41,  D(10,2),  B  57,  I  5 

SKIP  2  RECORDS 

••  *******  Read  MSN  specific  data  *************************** 

FOR  MSN  *  1  TO  MAX.NSN 

READ  NSN,  HSN.NO(NSN),  PLT.DAY(NSN) ,  VIP. ITEM(NSN) , 

SAFETY . MONTH ( NSN ) ,  QFD ( NSN ) 

SKIP  3  RECORDS 

FOR  NSN  *1  TO  MAX.NSN 

READ  NSN,  MAD(MSM),  OWRH(MSN),  ALPHA(MSN),  ARS(NSN), 

PER . RTC . DEMAND ( MSN ) 

IF  ICC*"P" 

' 'THEM  Read  CST  requirements  matrix  ********** 

IF  MAX.PGC*! 

''THEN  first  PGC  so  set  up  requirements  &  statistics  matrices 
RESERVE  CTREQ. MAT (*,*,*)  AS  MAXDXM.NSN  BY  36  BY  1 
RESERVE  MEAN.CTREQ(*)  AND  STD.CTREQ{*)  AS  MAXDIM.NSN 
ALWAYS 

FOR  NSN  *  1  TO  MAX.NSN  DO 
SKIP  3  RECORDS 
FOR  COL-  1  TO  MAX. MONTH 

READ  CTREQ. MAT (NSN, COL, .TOTAL) 

LOOP 

FOR  NSN-1  TO  MAX.NSN  DO 

FOR  MONTH- 1  TO  MAX. MONTH  DO 
COMPUTE 

MEAN. CTREQ (NSN)  AS  THE  MEAN  AND 
STD. CTREQ (NSN)  AS  THE  STD. DEV  OF 
CTREQ . MAT ( NSN , MONTH , . TOTAL ) 

LOOP 

AVE. FORECAST (NSN) -MEAN. CTREQ (NSN)  +  (QPD(NSN)/3) 
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LOOP 

ELSE  ''do  QFD  item  only 
FOR  NSN^l  TO  MAX.NSM 

AVE.FORECAST(NSN)=  (QFD(NSN)/3) 

ALWAYS 

IF  ALLPGC.OPT  =. FALSE 
''THEM  done  reading  one  PGC  from  file 
AT. EOF =. TRUE 
ALWAYS 

CALL  PRINT. SSCF. DATA 
END  "routine  INPUT. SSCF. DATA 


ROUTINE  OPTIONAL. ASSUMPTIONS 

''This  routine  lets  the  user  override  the  standard  assumptions,  options 
"  or  traces  settings  found  in  ALLPGC. INITIALI2E  &  SET. OPTIONS.  It  lets 
''  the  user  specify  their  own  by  editing  the  file  ASSUMP.MOD  &  entering 
'  '  1  in  the  user  query  for  the  selection  of  an  alternate  Assumption  file. 

DEFINE  TEST. TEXT  AS  TEXT  VARIABLE 

USE  UNIT  3  FOR  INPUT  ''ASSUMP.DAT 
UNTIL  TEST.TEXT="T''  DO 
READ  TEST. TEXT 
START  NEW  INPUT  RECORD 
LOOP 

READ  T,  Ml,  M2 
UNTIL  TEST. TEXT =" TRACES"  DO 
START  NEW  INPUT  RECORD 
READ  TEST. TEXT 
LOOP 

START  NEW  INPUT  RECORD 
READ  TRACE17 
SKIP  3  INPUT  RECORD 
READ  OOREQ.OPT 
CLOSE  UNIT  3 

PRINT  1  LIME  WITH  TRACE17  AND  DOREQ.OPT  THUS 
TRACE  17  IS  ""  DO  REQ  OPTIONS  ** 

END  ''routine  OPTIONAL. ASSUMPTIONS 


ROUTINE  OUTPUT. VSL 

''  This  routine  outputs  the  VSL  in  months  just  calculated.  It 
''can  store  this  file  in  the  simulation  directory  so  CATS  can 
''automatically  read  it,  or  in  this  directory  so  that  the  information 
''in  the  CATS  directory  will  not  be  destroyed.  It  prints  the 
''entire  system  of  NSNs  by  PGC  and  then  by  NSNs  within  the  PGC. 

DEFINE  COUNT, ANS,  NSN,  LAST.NSN  AS  INTEGER  VARIABLE 
USE  UNIT  6  FOR  OUTPUT 
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PRINT  6  LINE  THUS 

ENTER  THE  DIRECTORY  WHERE  YOU  WANT  THE  VSL  VALUES  (IN  MONTHS)  FILE 
TO  BE  STORED: 

0  TO  PLACE  THE  FILE  DIRECTLY  INTO  THE  SIMULATION  DIRECTORY 

SO  THAT  THE  SIMULATION  MODEL  WILL  AUTOMATICALLY  USE  THE  VSL. 

1  TO  PLACE  THE  FILE  IN  THIS  DIRECTORY  SO  THAT  IT  WILL  HOT 
OVERWRITE  AND  DESTROY  THE  EXISTING  VSL  INFORMATION. 

READ  ANS 
IF  ANS  =  0 

''THEN, Store  in  simulation  directory 

OPEN  UNIT  12  FOR  OUTPUT,  FILE  NAME  IS  "C : \SIM\DLA\VSL. DAT" 
ELSE  ''store  info  in  this  directory  so  as  not  to  destroy  old  VSL 
OPEN  UNIT  12  FOR  OUTPUT,  FILE  NAME  IS  "C:\SIM\VSL\VSL.DAT" 
ALWAYS 

USE  UNIT  12  FOR  OUTPUT 
LINES. V=0 

PRINT  4  LINES  THUS 


VSL  DATA  BY  PGC  AND  NSN  IN  MONTHS 


''  WHILE  PGC. SET  IS  NOT  EMPTY  DO 

FOR  EACH  PGC. MEMBER  IN  PGC. SET  DO 
COUNT  »  COUNT  +  1 

"  REMOVE  FIRST  PGC. MEMBER  FROM  PGC. SET 

PRINT  3  LINES  WITH  CODE,  NAME,  COUNT,  MAX. PGC,  NO. ITEMS  THUS 

P  PGC  **  PGC  NAME  *****************  pGC  **  OUT  OF  **  SYSTEM  PGCs 
NSN  VSL  (MONTHS)  NUN  NSNs  WITHIN  PGC  ** 

'  '  Do  next  PGC  from  last  NSN  is  system  done  plus  an  additional 
' '  MAX. NSN  for  the  next  PGC 

FOR  NSN=  (LAST. NSN  1 )  TO  (LAST. NSN  +  NO.  ITEMS)  DO 

PRINT  1  LINE  WITH  NSN,  VSL. MONTH ( NSN ) ,  NIIN(NSN)  THUS 
**  «*,«***  ********* 

LOOP 

LAST. NSN  =  LAST. NSN  +  NO. ITEMS 
''  DESTROY  PGC. MEMBER 

LOOP  ''for  next  member  in  PGC. SET 

END  ' 'OUTPUT. VSL 


ROUTINE  PRINT. ASSUMPTIONS 

''Prints  the  answers  or  the  assumpstions  entered  by  the  user  during 
''the  initial  interactive  session. 

PRINT  2  LINES  THUS 


PRINT  11  LINES  WITH  ALLPGC.OPT,  TARGET. PGC,  BETA. BO,  MODIFYDATA.OPT, 
MODMPTOll.OPT,  NEWASSUMP.OPT,  QINC.OPT,  Z.ESNTL.OPT,  MAXDIM.NSN, 
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MAXSYSDIM.MSM  THUS 

===»»»»*»  MODEL  OPTION  ASSUMPTIONS  ( true»l  and  false^O)  ==aa=s==a=x 
0  ALL  PGCs  IN  SSCF  IN  SYSTEM  VSL** (0:FALSE-  VSL  within  PGC  for  below) 

1) PGC  NUMBER  ** 

2) BETA  VALUE  FOR  FIRST  PASS  ** 

4) EOITED  THE  SSCF  DATA  **  (OiFALSE^  use  Standard  data  with  no  change) 

5) EDITED  MPTOll  TABLE  **  (OtFALSE^  use  Standard  data  with  no  change) 

6) EOITEO  ASSUMPTIONS  **  (0:FALSE  ~  standard  assumptions,  no  change) 

7 )  INCREMENTAL  DELIVERY  Q  **  (0:PALSE=  Q  is  order  quantity) 

8)  ESSENTIALITY  FACTOR  ZE  **(0:FALSE  ZE  =  1,  else  ZE  =  %RTC  demand  *  0.3) 
9.)MAXIMUM  SYSTEM  NSNs  **  MAXIMUM  NSNs  IN  ANY  PGC  ** 

END  ''routine  PRINT. ASSUMPTIONS 


ROUTINE  PRINT . SSCF . DATA 

''This  routine  prints  the  SSCF  data  read  in  by  routine  INPUT. SSCF. DATA 
DEFINE  NSN,  COL  AS  INTEGER  VARIABLE 

IF  TRACE17=  .TRUE 

PRINT  6  LINE  WITH  PGC. MO,  MAX. MSN  THUS 


==3=3X333=3333  PGC  SPECIAL  SUPPLY  CONTROL  FILE  INPUT  DATA  x====x=== 

PROC.GR.CD  **  NUMBER  OF  NSN  ** 

PRINT  2  LIMES  WITH  PGC. NAME,  FSC,  ICC,  ALT. DAY,  COST,  MAX. MONTH 
THUS 

ITEM  NAME  FSC  ICC  ADM.LT  STANDARD . PRICE  MAX. MONTH 

**«•«*•**••******  **  *  *3  *3^**  33 

PRINT  1  LINE  THUS 

NSN  NUN  PRO.LT  VIP(1=Y)  FIX. SAFE  QFD 

FOR  NSN  X  1  TO  MAX. MSN 

PRINT  1  LINE  WITH  NSN,  NSM.NO(NSN),  PLT.DAY{NSN) ,  VIP. ITEM(NSN) , 
SAFETY.MONTH(NSN)  ,  (2FD<NSN)  THUS 

33  333333333  33  3  **.*  ** 

PRINT  2  LINES  THUS 

NSN  MAO  OWRMRP  ALPHA  ARS  PER . RTC . DEMAND 

FOR  MSN  xi  TO  MAX. NSN 
PRINT  1  LINE  WITH 

MSN,  MAD(MSM),  OWRM(MSN) ,  ALPHA(NSN),  ARS(NSN), 

PER. RTC. DEMAND (NSN)  THUS 

33  **.*  **  3^33  **  .*  3  3333 

IF  ICC  =  "P'' 

' 'THEM  POI  item  and  print  CTREQ  matrix 
FOR  NSN  X  1  TO  MAX. NSN  DO 
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PRINT  2  LINE  WITH  NSN,  NSN.NO(NSN),  MAX. MONTH  THUS 
NSN  **  NUN  **•♦***♦*  CT  REQUIREMENT  MATRIX  FOR  **  MONTHS  *  = 

MONTHS:  1 -  2 - 3 - 4 - 5 - 6 

BEGIN  REPORT  PRINTING 

FOR  COL>  1  TO  MAX. MONTH  IN  GROUPS  OF  6 

PRINT  1  LINE  WITH  A  GROUP  OF  CTREQ . MAT ( MSN , COL ,. TOTAL )  FIELDS 

THUS 

**  *«  **  **  **  ** 

END  ' 'REPORT 
LOOP 

PRINT  3  LIME  THUS 

SUMMARY  ON  MONTHLY  TOTAL  FORECAST  AND  C&T  36  MONTH  POI  FORECASTS 
NSN  TOTAL  AMF  POI  AMF  POI  STD  %  POI  STD/POI  AMF 

FOR  NSM=1  TO  MAX. NSN  DO 

PRINT  1  LINE  WITH  NSN,  AVE . FORECAST ( NSN ) , 

MEAN . CTREQ ( NSN ) ,  STD . CTREQ ( MSN ) , 
(100*STD.CTREa(MSM)/MEAM.CTREQ(MSN) )  THUS 
**  **  **  **  *  ** 

LOOP 

ALWAYS  "CTREQ  print 

ALWAYS  "trace  block 

END  "routine  PRINT. SSCF. DATA 


ROUTINE  PRINT. VSLINFO  GIVEN  FAC 

'  '  This  routine  prints  all  the  key  information  needed  to  solve  the 
' 'VSL  formula.  The  information  is  all  stored  in  an  entity  similar 
''to  an  array  with  the  index  includin9  every  MSN  for  all  PGCs 
' ' in  the  system. 

DEFINE  NSN,  FAC  AS  INTEGER  VARIABLE 
USE  UNIT  1  FOR  OUTPUT 
LINES. V^O 

PRINT  3  LINES  WITH  FAC  THUS 

FINAL  SUMMARY  RESULTS  FOR  THE  SYSTEM 

<BACKOROERS-EBO>  <AVAILABILITY>  <COST  IN  **  DOLLARS  >  DEMAND 

<BETA  MODEL>  <«  FILL  RATE  >  <  VSL  FSL  MADLT  >AMF/1000 

PRINT  1  LINE  WITH  BETA. BO,  SUM.EBO,  ( SUM. WGTF I LRT/SUM. DEMAND } , 

SUM.VSLCT/FAC,  SUM. FSLCT/FAC ,  SUM . MADCT/FAC ,  SUM.DEMAMD/1000  THUS 

**  **  **  **  **  ***  **  **  **  ** 

•  •  «  •  •  •  • 


PRINT  3  LINE  WITH  MAX.PGC,  SYSTEM. MSN,  SUM.MADCT  THUS 
SUMMARY  VSL  INFORMATION 

NUMBER  OF  PGCs  **  MSNs  IN  SYSTEM  **  SUM  OP  MADLTxCT  ** 

NSN  Q  COST  MADLT  DMD/YR  %LTSD/D  EBO  FILLRT  K  VSL.MT  ZE 

FOR  NSM-1  TO  SYSTEM. NSN  DO 

PRINT  1  LIME  WITH  NSN,  Q. ORDER ( NSN ) ,  COST. PU(NSN) , 

MAOLT(NSM),  DMD.YR(MSN),  100*SD. MEAN ( NSN ) ,  EBO(NSM),  FILRT(NSN), 
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K. SAFETY ( NSN ) ,  VS L. MONTH ( NSN ) ,  Z . ESSENTIAL (NSN )  THUS 

It  it  it  it  ^  it  it  it  it  it  H*  ^  it  it  It  it  it  ^  it  it  iiit^ikititit^itititit^it 

LOOP 

CLOSE  UNIT  1 
END  ’ 'PRINT. VSL INFO 


ROUTINE  SET. OPTIONS 

''This  key  routine  is  where  all  options  are  set,  queries  are  asked, 

'*  traces  are  defined  and  set,  and  I/O  units  are  declared. 

DEFINE  DETAIL. OPT,  ANS  AS  INTEGER  VARIABLE 

USE  UNIT  5  FOR  INPUT 

• <  **«********4*****«  OPTIONS  SET  BELOW  *********************** 
MAXDIM.NSN  ^  200  ''the  maximum  number  of  NSNs  for  any  1  PGC 
MAXSYSDIM.NSN  =300  ''the  maximum  number  of  NSNs  sum  over  all  PGCs 
PRINT  9  LIMES  WITH  MAXDIM.NSN,  MAXSYSDIM.NSN  THUS 
=  =  a  =  =  =  =  VSL  ASSUMPTIONS  =  =  =  =  =  =  =  =  =  *  =  =  =  =  =  =  =  =  =  =  =  =  =  =  = 

1)  NO  PGC  HAS  MORE  THAN  **  NSNs 

2)  TOTAL  NUMBER  OF  NSNs  FOR  ALL  PGCs  IS  NO  MORE  THAN  **  NSNs 

3)  MATRIX  DELIVERY  INCONSISTENCIES  THAT  MAKE  VSL  FORMULA  UNCERTAIN 

-  IF  DELIVERY  METHOD  IS  #1:  INCONSISTENCY  BETWEEN  ROP  & 

DELIVERED  PLT 

-  DELIVERIES  >  6,  HAVE  ROP  PLTs  DIFFERENT  THAN  DELIVERED  PLTs 

4)  VIP  item  alpha  =>.05,  non  VIP  item  alpha  »  .15  (or  a  &  b  factors 
are  .7  &  .36  for  VIP;  .57  &  .46  for  non  VIP,  respectively 

PRINT  10  LIME  THUS 

DENTER  tttttt  NUMBER  0  TO  5  FOR  THE  PGC  SELECTED  TO  RUN  M«f Ittflll####* 


NAME 

SERVICE 

MAX  MSN 

PGC  NUMBER 

0  - 

DEMO  PGC  (MAM'S  SHIRT) 

ARMY 

3 

1672 

1  - 

MAN'S  COAT 

ARMY 

65 

1765 

2  - 

WOMAN'S  SHIRT 

AIR  FORCE 

21 

1671 

3  - 

WOMAN'S  SKIRT 

ARMY 

80 

1748 

4  - 

MEN'S  SHOE 

ALL 

113 

1505 

5  - 

MEM  &  WOMEN  GLOVES 

ALL 

17 

1834 

6  -  WANT  TO  ENTER  AN  ALTERNATE  PGC  NUMBER 
99  -  FOR  ALL  PGCS  IN  THE  SSCF  report  (file  "SSCFSIM. OAT" ) 

READ  AMS 

'  'TIME.VAL  is  real  time  minutes  to  run  ALL  NSNs  for  a  simulation  year 
SELECT  CASE  AMS 
CASE  0 

TARGET.  PGC=>  167  2 
CASE  1 

TARGET. PGC- 17 65 
CASE  2 

TARGET. PGC =1671 
CASE  3 

TARG&T.PGC=1748 
CASE  4 
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TARGET. PGC» 150 5 
CASE  5 

TARGET. PGC= 1834 
CASE  6 

PRINT  2  LINE  THUS 

la)  ENTER  THE  PGC  NUMBER  (NOTE:  BOTH  THE  SSCFSIM. OAT/MOO  AND  THE 
MPTOll. OAT/MOO  FILES  MUST  ALREADY  HAVE  THIS  PGC'S  DATA  WITHIN 
READ  TARGET. PGC 
DEFAULT 

PRINT  5  LINES  THUS 

ASSUMPTIONS  FOR  VSL  WITH  MULTIPLE  PGCS 

ASSUMES  1)  ONLY  PGCs  FOR  VSL  IN  SSCF  "SSCFSIM.DAT” 

2)  THOSE  PGCs  ALSO  IN  MPTOll  FILE  (THOUGH  THE  MPTOll 
CAN  HAVE  PGCs  IN  DIFFERENT  ORDER  AND  CAN  HAVE  PGCs 
NOT  INCLUDED  IN  THE  SSCF) 

ALLPGC . OPT= . TRUE 
ENDSELECT 

''1  FOR  AN  ORDER  QUANTITY  (Q)  CONSIDERING  INCREMENTAL  DELIVERIES 
' ' 0  FOR  A  Q  EQUAL  TO  THE  PROCUREMENT  CYCLE  X  MONTHLY  FORECAST 
QINC.OPT  =  1  ''default  equals  incremental  deliveries. 

PRINT  1  LINE  THUS 

2)  ENTER  BETA  OR  THE  BACKORDER  LINES  ON-HAND  GOAL 

READ  BETA. BO 

<  <  ****•********«»*«**  trace  options  set  below  ************************** 

"  in  routine  PRINT . DEMANDS  for  trace  2  &  3 

TRACE17*.FALSE  ''prints  the  values  read  in  from  the  SSCF  file 

TRACE7*  .TRUE  ''prints  the  first  CTREQ.MAT  matrix 

TRACE 14 3. FALSE  ' 'prints  PLT  stored  values,  runs  PLT  1000  times 

TRACE22>. TRUE  ''Matrix  delivery  PLTs,  %PCP,  XYZ  vectors  &  NSNs, 
TRACEl  a. FALSE  ''prints  the  months  early  and  NSN  deliveries 
TRACE2  >. FALSE  ' 'T-months  of  leadtime,  MADLT,  sum  MADLT*COST 
TRACE3  >.TRUE  ''VSL  equation, 3SD,  MADLTDMD,  &  fillrate,  exp  factors 
•■•*«**••***•*******•  detail  QUERIES  SET  BELOW  ********************** 
PRINT  2  LINE  THUS 

3)  ENTER  1  FOR  FURTHER  INPUT  SPECIFICATIONS  (QUERIES  4  TO  8) 

0  FOR  NO  FURTHER  CHANGE  AND  RUN 
READ  DETAIL. OPT 
IF  DETAIL. OPT*. TRUE 

''THEN  ********  do  DETAIL  QUERY  for  graphs,  files,  phasing 
PRINT  2  LINE  THUS 

4)  ENTER  1  FOR  OPTIONAL  SCF  INPUT  DATA 

0  FOR  STANDARD  SCF  INPUT  DATA  [D] 

READ  MODIFYDATA.OPT 

PRINT  2  LINES  THUS 

5)  ENTER  1  FOR  OPTIONAL  MANAGEMENT  POLICY  TABLE  INPUT  DATA  (MPTOll) 

0  FOR  STANDARD  MANAGEMENT  POLICY  TABLE  INPUT  DATA  [D] 

READ  MODMPTOll.OPT 
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PRINT  2  LINE  THUS 

6) ENTER  1  FOR  OPTIONAL  ASSUMPTION  PILE:  M1,M2,T,  OPTIONS,  TRACES 

0  FOR  STANDARD  ASSUMPTIONS  [D] 

READ  NEWASSUMP.OPT 

PRINT  2  LIME  THUS 

7) EMTER  1  FOR  ORDER  QUANTITYCQ}  TO  CONSIDER  INCREMENTAL  DELIVERIES  [D] 

0  FOR  A  Q  EQUAL  TO  THE  PROCUREMENT  CYCLE  x  MONTHLY  FORECAST 
READ  Q INC. OPT 

PRINT  2  LINES  THUS 

8)  ENTER  1  FOR  THE  ESSENTIALITY  FACTOR  ZE  »  %  DEMAND  FOR  RTC  -t-  0.5 

0  FOR  NO  ESSENTIALITY  CONSIDERATIONS  OR  ZE  -  1[D] 

READ  Z.ESNTL.OPT  '*  Essentiality  factor  1  through  9 

PRINT  4  LIMES  WITH  MAXSYSDIM.NSN  THUS 
9a)EMTER  1  TO  CHANGE  MAXIMUM  NUMBER  OF  MSNs  IN  SYSTEM  (MOW  AT  **) 

0  TO  KEEP  MAX  HUMBER  AT  CURRENT  CEILING  VALUE  [D] 

(MOTE: FOR  MODEL  TO  ALLOCATE  ENOUGH  SPACE  THIS  VALUE  MUST  BE 
GREATER  THAN  OR  EQUAL  TO  THE  NO.  OF  NSNs  FOR  ALL  THE  PGCs) 

READ  ANS 
IF  ANS  »  1 

PRINT  1  LINE  THUS 

ENTER  THE  MAXIMUM  NUMBER  OF  NSNs  YOU  WANT  INSTEAD 
READ  MAXSYSDIM.NSN 
ALWAYS 
ALWAYS 

CALL  PRINT. ASSUMPTIONS 

I  •  **********  ihput/  output  specifications  ************ 

OPEN  UNIT  1  FOR  OUTPUT,  FILE  NAME  IS  "C:\SIM\VSL\VSL0UT.DAT" 

USE  UNIT  1  FOR  OUTPUT 

IF  TARGET.PGC=1672 
' 'THEM  use  sample  input  file 
IF  M0DIFYDATA.0PT=.TRUE 

OPEN  UNIT  4  FOR  INPUT,  PILE  NAME  IS  "C:\SIM\DLA\DEM0PGC.M0D 
ELSE 

OPEN  UNIT  4  FOR  INPUT,  PILE  NAME  IS  "C:\SIM\DLA\DEM0PGC.DAT 
ALWAYS 
ELSE 

IP  MODIPYDATA. OPT-. TRUE 

OPEN  UNIT  4  FOR  INPUT,  FILE  NAME  IS  "C:\SIM\0LA\SSCFSIM.M0D 
ELSE 

OPEN  UNIT  4  FOR  INPUT,  FILE  NAME  IS  "C:\SIM\DLA\SSCFSIM.0AT 

' '  *******test  file 

"  OPEN  UNIT  4  FOR  INPUT,  FILE  NAME  IS  "C:\SIM\VSL\SSCF.TST" 

ALWAYS 

ALWAYS 

IF  NEWASSUMP.OPT-. TRUE 

OPEN  UNIT  3  FOR  INPUT,  FILE  NAME  IS  "C:\SIM\DLA\ASSUMP.M0D" 
ALWAYS 

' '  matrix  delivery  schedule  info,  and  first  delivery  PLT 


IF  MODMPTOll. OPT*. TRUE 

OPEN  UNIT  11  FOR  INPUT,  FILE  NAME  IS  "C:\SIM\DLA\MPT011.MOD" 
ELSE 

OPEN  UNIT  11  FOR  INPUT,  FILE  NAME  IS  "C:\SIM\DLA\MPT011.DAT" 
ALWAYS 

''  NOTE:  UNIT  12  will  be  OPENed  in  the  "OUTPUT. VSL"  routine. 

END  ''ROUTINE  OPTIONS 


ROUTINE  STORE. VSL. DATA 

' '  This  routine  stores  the  key  variables  needed  to  solve  the  VSL 
''equation:  Q,  MADLT,  COST,  K,  Demand/yr.  It  also  calculates  the 
' 'MADLT,  the  sum  of  all  MAOLT"COST,  and  stores  the  PGCs  name, 

''number  of  MSN,  and  code. 

DEFINE  NSN,  SYS.NSN  AS  INTEGER  VARIABLES 
DEFINE  T.LT  AS  REAL  VARIABLE 

CREATE  A  PGC. MEMBER 
NAME  *  PGC. NAME 

CODE  *  PGC. MO  ' '  the  procurement  grouping  code  number 

NO. ITEMS  *MAX.NSN  ''  the  number  of  NSMs  or  MAX.NSMs 
FILE  PGC. MEMBER  IN  PGC. SET 

SYS . NSN*SYSTEM . NSN 

FOR  NSN»1  TO  MAX. NSN  DO  ''store  NSN  info  into  system  entity 
ADD  1  TO  SYS.NSN 

MIIN(SYS.NSM)*  NSN.NO(NSN)  "  NSN  number 
g. ORDER (SYS. NSN)*  Q . INCREMENT (NSN) 

COST. PU( SYS. NSN)*  COST  ''  cost  per  unit 

DMD. YR ( S YS. NSN )*AVE. FORECAST (MSN)  *  12  ''annual  unit  demand  per 
year 

IF  (Z.ESNTL.OPT  =.TRUE) 

' 'THEN  use  essentiality  Z  factor  of  ten  times  %  RTC  demand 
Z. ESSENTIAL (SYS. MSN)  *  PER. RTC. DEMAND (MSN)  +0.5 
ELSE  ''assume  no  essentiality  factor  or  all  1 
Z.ESSENTIAL(SYS.NSN)  *  1 
ALWAYS 

IP  VIP.ITEM(NSN)=1  ' ' 

"  THEN  VIP  alpha  is  0.05 

T.LT*(ALT.DAY  +  PLT.DAY(HSN) )/.DPM 
MADLT(SYS.NSN)»( .7  +  0.36  *  T.LT)  *  MAD(MSM) 
SD.MEAN(SYS.NSN)*(1.25*NADLT(SYS.NSN) ) 

/(AVE. FORECAST (NSN)  *  T.LT) 

ELSE  ' 'MON- VIP  alpha  is  0.15 

T.LT»(ALT.DAY  +  PLT.DAY{NSN) )/  (.DPM  *  3)  "quarterly  info 
MADLT(SYS.NSM)*(0.57  +  0.46  "  T.LT)  *  MAO(NSN) 
SO.MEAM(SYS.NSN)*(1.25  "  MADLT ( SYS . NSN ) ) 

/(3  •  AVE. FORECAST (NSN)  *  T.LT) 

ALWAYS 

SUM. DEMAMD*SUM. DEMAND  +  AVE . FORECAST ( NSN ) 

SUM.MADCT  *SUM.MADCT  +  (MADLT (SYS. NSN)  "  COST) 
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SUM.FSLCT  ^SUM.FSLCT  + 

(SAFETY. MONTH (NSM)  *  AVE . FORECAST ( NSN )  *  COST) 

IF  TRACE2».TRUE 

PRINT  1  LINE  WITH  SYS.NSN,  T.LT,  MAOLT(SyS.NSN) ,SUM.MADCT  THUS 
NSN  **  T.LT  **.****  MADLT  **.****  SUMMT  ** 

ALWAYS 

LOOP 

SYSTEM . NSN=SYS . NSN 
END  ''routine  STORE. VS L. DATA 


ROUTINE  VSL. EQUATION 

' '  This  routine  solves  the  VSL  equations  once  the  key  variables 
''have  been  derived  and  stored(£or  all  NSNs  in  system)  and  the 
''sum  of  MADLT  *  cost  for  all  NSNs  is  calculated  (both  done  in 
' 'STORE. VSL. DATA.  The  routine  calculates  VSL  and  makes  sure  it  is  less 
''then  3  standard  deviations  or  the  mean  leadtime  demand.  It  also 
'  'calculates  EBOs,  fill  rates  by  NSN  and  cummulative  for  the  system. 

DEFINE  l.EXP.QMD,  EXP. EXP  AS  A  REAL  VARIABLE 

DEFINE  BETA. TEST,  VSL.EQU,  VSL.3SO,  VSL.MLTD,  AMF  AS  REAL  VARIABLES 
DEFINE  PASS,  NSN,  FAC  AS  INTEGER  VARIABLE 

FAC=*1000  ''factor  to  get  dollar  cost  of  levels  into  1000s 
BETA. TEST  >  BETA. BO 
USE  UNIT  6  FOR  OUTPUT 
PRINT  3  LINES  WITH  FAC  THUS 

=  FINAL  SUMMARY  RESULTS  FOR  THE  SYSTEM  ==.=>»*=*=»====*=.== 
<BACKORDERS-EBO>  <AVAILABILITY>  <COST  IN  **  DOLLARS  >  DEMAND 
PASS  <8ETA  NODEL>  <%  FILL  RATE  >  <  VSL  FSL  MADLT  >AMF/1000 

WHILE  (BETA. TEST  >  0)  DO 
BETA. BO  ^  BETA. TEST 
SUM.WGTFILRT  ^  0 
SUM.EBO  »  0 

SUM.VSLCT  =i  0 
ADO  1  TO  PASS 

■ •  ****************  VSL  EQUATION  FOR  A  GIVEN  BETA  PASS  ************* 

FOR  NSN»  1  TO  SYSTEM. NSN  DO 

l.EXP.QMD  *  1  -  EXP. F(-l. 1313  •  (Q. ORDER (NSN)/MADLT( NSN) ) ) 

''  Next  Equation  from  "Review  of  SAMMS  Requirements",  M.R. Cyrus, 

' '  8/85.  Note:  Unit  not  requisition  demand  so  ARS  not  needed  . 

K. SAFETY ( NSN )»  -.7071  *  LOG.E.F( 

(2.56  *  Q.OROER(NSN)  *  COST.PU(NSN)  *  BETA. BO) 

/(  Z. ESSENTIAL (NSN)  •  NAOLT(NSN)  *  SUM.MAOCT  *  l.EXP.QMD)) 
AMF>OMO . YR( NSN ) /12 

''  Use  vsl  equation  but  convert  VSL  in  units  to  months,  divide  by 
' '  average  monthly  forecast  (AMF) 

VSL.EQU  «  (1.25  "  K.SAFETY(NSN)  •  MADLT ( NSN )) /AMF 
IF  VSL.EQU  <  0 

''  THEN  negitive  VSL  and  set  to  zero 
VSL. MONTH (NSN)  >  0 

ELSE  ' '  make  sure  VSL  is  below  constraints 
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VSL.3SD  >  (3  *  1.25  •  MADLT ( MSN ) ) /AMF 
'  '  VSL  >  mean  leadtime  demand  (derived  from  ratio  of 

''  SO. MEAN  (SD/mean  demand  in  a  leadtime)) 

VSL.MLTD  >  (MAOLT(NSM)  *  1. 25)/SD.MEAM(MSM)/AMF 
VSL. MONTH ( MSN )>  MIM.F  (VSL.EQU,  VSL.3SD,  VSL.MLTD) 

ALWAYS 

' '  In  case  not  using  VSL.EQU  resolve  for  K 

K.SAFETY(NSM)  *  VSL. MONTH (MSN)  *  AMF  /fl.25  *  MADLT(NSN)) 

' '  Calculates  nonfill  rate  (avalability )  &  time  weighted  backorders 
' '  via  Presutti  &  Trepp  article  equations  8  &  10,  respectively 
' '  1.4142  >  SQRT( 2) 

EXP.EXP^I.EXP.QMD  *  EXP. F(-l. 4142  *  K . SAFETY ( NSN ) ) 

II  ***  Pill  Rate  (supply  availability)  where  .35355  *(0.5  /I. 4142) 

' '  1  -  non  fill  rate  \/ 

FILRT(NSN)-100  *  (1  -  {(0.35355  *  1 . 25*MADLT(NSN )  *  EXP. EXP) 

/Q. ORDER (NSN) ) ) 

IF  TRACE3-.TRUE 

USE  UNIT  1  FOR  OUTPUT 

PRINT  1  LINE  WITH  NSN,  VSL.EQU,  VSL.3SD,  VSL.MLTD, 

K. SAFETY (NSN)  THUS 

NSN  **  VSL:  EQU  *■*.**  3SD  MLTD  K 

•'  PRINT  1  LINE  WITH  NSN,  PILRT{NSN),  EXP. EXP,  l.EXP.QMD  THUS 

II  NSM  **  FILR  **.*****  E.E  **.****  l.EX  **.**** 

USE  UNIT  6  FOR  OUTPUT 
ALWAYS 

*'  Time  weighted  backorders  (EBOs) 

EBO(NSN)»( .5/2)*  ( ( (1.25*MADLT(NSN) )**2)/Q.ORDER(HSN) )  *  EXP. EXP 
SUM.WGTFILRT*  SUM.WGTFILRT  +  (AMF  *  FILRT(NSN) )’’ weighted  fill 
SUM.EBO  >  SUM.EBO  EBO(NSN) ' ' sum  of  sys.  time  weighted  BOs 

SUM.VSLCT  «  SUM.VSLCT  +  (VSL. MONTH (NSN)  *  AMF  *  COST.PU(NSM) ) 

LOOP  "•******•*•*•  end  of  VSL  EQUATION  FOR  BETA  PASS  ************ 

PRINT  1  LIME  WITH  PASS,  BETA. BO,  SUN. EBO, ( SUM. WGTF I LRT /SUM. DEMAND) , 
SUM.VSLCT/FAC,  SUM. FSLCT/FAC,  SUM.MADCT/FAC,  SUM. DEMAND/1000  THUS 
**  ^ 

WRITE  AS  "ENTER  NEW  BETA  (TO  STOP  ENTER  0)",-l- 
READ  BETA. TEST 
LOOP 

CALL  PRINT. VSLIMFO  GIVEN  FAC 
END  ' 'VSL. EQUATION 


ROUTINE  XYZ.PLTS 

’’This  routine  determines  which  NSN  are  X,  Y,  or  Z  items,  and  based 
’’  on  delivery  method  1  to  4,  what  the  NSNs  PLTs  are.  The  routine 
' '  also  calculates  the  average  procurement  cycle  for  each  NSN. 
DEFINE  MSN  AS  INTEGER  VARIABLE 

DEFINE  PERCENT. PCP,  PGC.PCP,  DVQD  AS  REAL  VARIABLE 
PRINT  5  LIME  THUS 


SIMULATION  DATA  DESCRIPTION 
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FOR  NSN>1  TO  MAX. MSN  DO 

DVQD-TRUNC . F ( AVE . FORECAST { HSH ) *  3 ) *  COST 
IF  DVQD  <-  Ml 

'THEN  OVQO  set  fcr  a  36  month  procurement  cycle 
PCP. MONTH (MSN) =36 
ELSE 

IF  (DVQD  >  Ml)  AND  (DVQD  <=  M2) 

' 'THEM  between  Ml  &  M2  so  use  Wilson  Lot  Size  equation 
PROCURE  CYCLE  (MONTHS )=  EOQ  /  MONTHLY  DEMAND 
PCP. MONTH(NSN ) =TRUNC.F{ (3*T)*( DVQD**  (-0.5)  )  ) 

ELSE  ''greater  than  M2  or  use  6  month  PCP 
PCP. MONTH (MSN) =6 
ALWAYS 
ALWAYS 
LOOP 

FOR  NSN=  1  TO  MAX.NSM  ' '  sum  to  use  as  average  order  quantity 
PGC . PCP=PGC . PCP  +  ( AVE. FORECAST (NSN)* PCP. MONTH ( NSN ) ) 

FOR  NSN  =  1  TO  MAX.NSM  DO 

PERCENT. PCP  =  (100  *  ( AVE . FORECAST (NSN )* PCP .MONTH (NSN) ) /PGC . PCP ) 

SELECT  CASE  DELIVERY. OPT  "calculate  the  MSN  specific  PLTs 
CASE  I.'*************  METHOD  1  DELIVERY  OPTION  ************ 

IF  (PERCENT. PCP  >=  X. PERCENT) 

' 'THEN  X  item 

PLT.DAY(NSN)=  FIRST. DELIVERY  + 

(( 1/3 )*MAX. DELIVERIES  *  .DPM) 

ELSE 

IP  (PERCENT. PCP  <«  2. PERCENT) 

' 'THEN  2  item 

PLT.DAY(NSN)=  FIRST . DELIVERY 

( (5/6) *MAX. DELIVERIES  *  .DPM) 

ELSE  ' 'Y  item 

PLT.DAY(NSN)»  FIRST. DELIVERY  + 

(( 2/3 )*MAX. DELIVERIES  *  .DPM) 

ALWAYS 

ALWAYS 

CASE  2  ■'************  method  2  DELIVERY  OPTION  ************ 

IF  (PERCENT. PCP  >=  X. PERCENT) 

' 'THEN  X  item 

PLT.OAY(NSN)«  FIRST. DELIVERY  + 

( (1/2) *MAX. DELIVERIES  *  .DPM) 

ELSE 

IF  (PERCENT. PCP  <-  2. PERCENT) 

' 'THEN  2  item 

PLT.OAY(NSN)=  FIRST. DELIVERY  + 

(( 5/6 )*MAX. DELIVERIES  *  .DPM) 

ELSE  ' 'Y  item 

PLT.DAY(NSN)=  FIRST. DELIVERY  + 

(( 2/3 )*MAX. DELIVERIES  *  .DPM) 

ALWAYS 

ALWAYS 
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CASE  3  '•*****•******  method  3  DELIVERY  OPTION  ************ 

IP  ( PERCENT. PCP  X. PERCENT) 

' 'THEN  X  item 

PLT.DAY(NSN)=i  FIRST.  DELIVERY  + 

{ (1/2) *MAX. DELIVERIES  *  .DPM) 

ELSE 

IP  (PERCENT. PCP  <=  Z. PERCENT) 

'  'THEN  Z  item 

PLT.DAY(NSN)=  FIRST. DELIVERY  + 

( (2/3) *MAX. DELIVERIES  *  .DPM) 

ELSE  ' 'Y  item 

PLT.DAY(NSN)=«  FIRST.  DELIVERY  + 

( (1/2) ‘MAX. DELIVERIES  *  .DPM) 

ALWAYS 

ALWAYS 

CASE  4  •'************  method  4  DELIVERY  OPTION  ************ 

IF  (PERCENT. PCP  >=  X. PERCENT) 

' ' THEN  X  i tern 

PLT . DAY ( NSN ) =  FIRST. DELIVERY  + 

( (1/2) *MAX. DELIVERIES  *  .DPM) 

ELSE 

IP  (PERCENT. PCP  <=»  Z. PERCENT) 

' 'THEN  Z  item 

PLT. DAY (NSN) =  FIRST . DELIVERY  + 

( (5/6) *MAX. DELIVERIES  *  .DPM) 

ELSE  ' 'Y  item 

PLT.DAY(NSN)=  FIRST . DELIVERY  + 

( (1/2) *MAX. DELIVERIES  *  .DPM) 

ALWAYS 

ALWAYS 

ENDSELECT 

CALL  DO. Q. INCREMENT  GIVEN  NSN  AND  PERCENT. PCP 
LOOP 

' '  USE  UNIT  6  FOR  OUTPUT 
IF  TRACE22=.TRUE 

PRINT  2  LINES  WITH  PGC.PCP,  FIRST. DELIVERY,  QINC.OPT  THUS 
PGC  TOTAL  PCP  **  1ST  DEL  **  QINC.OPT  ** 

NSN  PCP  PLT  Q  INCREMENT  Q  MONTHS  AVE.FOR  DVQD 

FOR  NSN>1  TO  MAX. NSN  DO 

PRINT  1  LINE  WITH  NSN,  PCP . MONTH ( NSN ) ,  PLT . DAY ( NSN ) , 

Q . INCREMENT ( NSN ) ,  ( Q . INCREMENT ( NSN ) /  AVE . FORECAST ( NSN ) ) , 
AVE . FORECAST ( NSN ) , ( TRUNC . F ( AVE . FORECAST ( NSN ) *  3 ) *COST )  THUS 
*•  **.*  «*.*  **.*  **,*  **^*  **.* 

LOOP 

ALWAYS 

END  ''routine  XYZ.PLTS 
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